Six or more by macik

for z in map(str,range(10,1e4)):
 if min(abs(int(x)-int(y))for x,y in zip(z,z[1:]))>5:print z

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

download

return top