(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)