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