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