A048407 Numbers whose consecutive digits differ by 5.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 27, 38, 49, 50, 61, 72, 83, 94, 161, 272, 383, 494, 505, 616, 727, 838, 949, 1616, 2727, 3838, 4949, 5050, 6161, 7272, 8383, 9494, 16161, 27272, 38383, 49494, 50505, 61616, 72727, 83838, 94949, 161616, 272727, 383838

Offset: 0

Author

Patrick De Geest, Apr 15 1999

Keywords

• nonn
• base

Crossrefs

Cf. A033075, A033088, A033081, A048406-A048410.

Programs

Mathematica

Join[Range[0,9],Select[Range[400000],Union[Abs[Differences[ IntegerDigits[ #]]]] == {5}&]] (* Harvey P. Dale, Sep 23 2013 *)