for(i,1,2e3,k:=9;j:=i;while(k>6,k=0;while(j>0,k=k+(j%10)**2;j=j/10|0);j=k)>1or i println)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page