OFFSET
1,2
MATHEMATICA
Select[Range[120], Max[Abs[Differences[IntegerDigits[#, 3]]]]<2&] (* Harvey P. Dale, Nov 06 2016 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved