(for n 1 300(prn:if(pos #\3(+""(+(mod n 3)3)n))'aho n))