Six or more by mitchs (hallvabo)

n=9
while n<1e4:
 n+=1;x=b=n
 while x>9:b-=-6<x%10-x/10%10<6;x/=10
 if b/n:print n

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

download

return top