OFFSET
1,2
MATHEMATICA
Select[Range[250], Max[Abs[Differences[IntegerDigits[#, 7]]]]<2&] (* Harvey P. Dale, Jul 25 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved