for n=1,1e4 do s=("").gsub(n,n%10,"")x=s~=s:match(s:sub(-1).."+")or print(n)end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page