A033020 Numbers whose base-7 expansion has no run of digits with length < 2.

8, 16, 24, 32, 40, 48, 57, 114, 171, 228, 285, 342, 392, 400, 408, 416, 424, 432, 440, 784, 792, 800, 808, 816, 824, 832, 1176, 1184, 1192, 1200, 1208, 1216, 1224, 1568, 1576, 1584, 1592, 1600, 1608, 1616, 1960, 1968, 1976

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A007093.

Programs

Mathematica

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