Find the nearest Prime by kozima

(loop(do((n(read))(i 0(-(if(< i 0)0 -1)i)))((not(format(=(mod-expt 78(1- #1=(+ n i))#1#)1)"~D
"#1#)))))

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

download

return to the top page