(dotimes(a 300)(format t"~:[~a~;aho~]~%"(or(=(mod #1=(1+ a)3)0)(find #\3(format nil"~a"#1#)))#1#))