main=mapM print$filter f[1..2000] f n|n<5=n<2|0<1=f$sum[read[x]^2|x<-show n]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page