Lucky numbers by youz

(set'l(loop as i to 5e3 collect(+ i i 1)))(dotimes'169(set'i
0)(delete-if(lambda(_)(<(mod(incf i)(nth(+ .'1)l))1))l))(format t"~{~D ~}"l)

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page