for(i in 17:1e4){n=i;while(5<abs(n%%10-(n=n%/%10)%%10))0;if(!n)write(i,T)}

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

download

return to the top page