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