function b(n)if p~=n then end q=n..' 't={}for i=1,#q-1 do table.insert(t,q:sub(i,i)+0)end s=0 i=1 while s<n do s=s+(t[i])i=i+1 if i>#t then i=1 end end if s==n then return true else return false end end
for i=0,499 do if b(i)==true then print(i)end end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).