A033022 Numbers whose base-9 expansion has no run of digits with length < 2.

10, 20, 30, 40, 50, 60, 70, 80, 91, 182, 273, 364, 455, 546, 637, 728, 810, 820, 830, 840, 850, 860, 870, 880, 890, 1620, 1630, 1640, 1650, 1660, 1670, 1680, 1690, 1700, 2430, 2440, 2450, 2460, 2470, 2480, 2490, 2500, 2510, 3240

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1100

Programs

Mathematica

Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 9]]]>1&] (* Vincenzo Librandi, Feb 05 2014 *)