do1 i=1,2e3;k=i;do2 j=1,99;2 k=sum([(mod(k/10**j,10)**2,j=0,3)]);1 if(k<2)print'(i0)',i;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page