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