Practical Numbers by nn

:cm L let 
:wh@n<500|let@n=@n+1|Li=1|Ls=1|wh s|Li+=1|Ls-=@n%i?1:1-i|endw|let@O=i<@n?"":@n."\n"|endw
i\x12o\x1bZZ

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

download

return to the top page