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