login
A032987
Numbers with the property that all pairs of consecutive base-10 digits differ by more than 2.
0
1, 2, 3, 4, 5, 6, 7, 8, 9, 14, 15, 16, 17, 18, 19, 25, 26, 27, 28, 29, 30, 36, 37, 38, 39, 40, 41, 47, 48, 49, 50, 51, 52, 58, 59, 60, 61, 62, 63, 69, 70, 71, 72, 73, 74, 80, 81, 82, 83, 84, 85, 90, 91, 92, 93, 94, 95, 96, 140, 141, 147, 148
OFFSET
1,2
MATHEMATICA
Select[Range[200], And@@(Abs[First[#]-Last[#]]>2&/@Partition[ IntegerDigits[#], 2, 1])&] (* Harvey P. Dale, Mar 28 2011 *)
Select[Range[200], Min[Abs[Differences[IntegerDigits[#]]]]>2&] (* Harvey P. Dale, May 24 2015 *)
CROSSREFS
Cf. A032981.
Sequence in context: A244155 A066310 A342226 * A174876 A092597 A335134
KEYWORD
nonn,base
STATUS
approved