for n=1,1e4 do s=("").gsub(n,n%10,"")x=s~=s:match(s:sub(-1).."+")or print(n)end