<?for(;2e3>$j=++$i;$k-1||print"$i ")for(;($k/=10)||(4<$k=$j)|$j=0;$j+=$s*$s=$k%10);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page