(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