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,1

Links

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

Mathematica

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

Crossrefs

Cf. A007093.

Sequence in context: A178735 A043421 A028438 * A108651 A031488 A020335

Adjacent sequences: A033017 A033018 A033019 * A033021 A033022 A033023

Keyword

nonn,base

Author

Clark Kimberling

Status

approved