for(i in 17:1e4){n=i;while(5<abs(n%%10-(n=n%/%10)%%10))0;if(!n)write(i,"")}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page