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