<?for(;2e3>$i;0|($k/=10)||$j=!$k=$j>4?$j:$i+=$j-1||print"$i ")$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