(do([x 32416187567(+ x 1)][n 100(- n(if(= 1([rec(g b e)(if(= e 1)b(mod(*(g(mod(* b b)x)(div e 2))(if(odd? e)b 1))x))]2(- x 1)))(and(print x)1)0))])((= n 0)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page