anarchy golf - the source code

Practical Numbers by nn

for n=1,500 do
s=1
i=1
while s>0 do
i=i+1
s=n%i>0 and s-1 or s+i-1
end
i=i<n or print(n)end

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