OFFSET
1,2
MATHEMATICA
Join[Range[4], Select[Range[1000], Union[Abs[Differences[IntegerDigits[ #, 5]]]]=={1}&]] (* Harvey P. Dale, Dec 28 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved