(for i 10000 10300(= r i n i j 1)(while(> n 1)(++ j)(if #0=(<(mod n j)1)(-- r(/ r j)))(while #0#(zap / n j)))prn.r)

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

download

return to the top page