OFFSET
1,2
MATHEMATICA
Select[Range[2000], Min[Abs[Differences[IntegerDigits[#, 4]]]]>1&] (* Harvey P. Dale, Nov 25 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved