Six or more by pooq

for(i,17,1e4,n:=i;while((n%10-(n=n/10|0)%10)abs>5,0)n>0or i println)

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

download

return to the top page