OFFSET
1,2
MATHEMATICA
Join[Range[6], Select[Range[2500], Union[Abs[Differences[IntegerDigits[#, 7]]]] == {2}&]] (* Harvey P. Dale, Jun 30 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved