A033021 Numbers whose base-8 expansion has no run of digits with length < 2.

9, 18, 27, 36, 45, 54, 63, 73, 146, 219, 292, 365, 438, 511, 576, 585, 594, 603, 612, 621, 630, 639, 1152, 1161, 1170, 1179, 1188, 1197, 1206, 1215, 1728, 1737, 1746, 1755, 1764, 1773, 1782, 1791, 2304, 2313, 2322, 2331, 2340

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A007094.

Sequence in context: A028439 A178896 A217373 * A031493 A020336 A044834

Adjacent sequences: A033018 A033019 A033020 * A033022 A033023 A033024

Keyword

nonn,base

Author

Clark Kimberling

Status

approved