anarchy golf - the source code

happy number by murky-satyr

for n=1,2e3 do
s=n
while s>6 do
t=s..''s=0 for c in t:gfind'.'do s=s+c^2 end
end
s=s>1 or print(n)end

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