(for n 1 2e3(= s n)(while:>(= s(sum[expt(int:+ _)2](+""s)))6)(if(< s 2)prn.n))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page