A032987 Numbers with the property that all pairs of consecutive base-10 digits differ by more than 2.

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

Author

Clark Kimberling

Keywords

• nonn
• base

Crossrefs

Cf. A032981.

Programs

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 *)