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 to the top page