Practical Numbers by o-cn(nn)

<?for(;$s?$n%++$$n||$s+=$$n:$s=++$n<501;--$s|$$n<$n||print"$n
");

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page