login
A048407
Numbers whose consecutive digits differ by 5.
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,3
MATHEMATICA
Join[Range[0, 9], Select[Range[400000], Union[Abs[Differences[ IntegerDigits[ #]]]] == {5}&]] (* Harvey P. Dale, Sep 23 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1999
STATUS
approved