A030346 Length of n-th run of digit 0 in A030341.

1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 4, 3, 3, 1, 2, 2, 2, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset

1,4

Links

Table of n, a(n) for n=1..91.

Mathematica

If[#[[1]]==0, Length[#], Nothing]&/@Split[Flatten[Table[Reverse[IntegerDigits[n, 3]], {n, 0, 200}]]] (* Harvey P. Dale, Mar 14 2023 *)

Crossrefs

Sequence in context: A343747 A334925 A247090 * A030336 A321650 A205007

Adjacent sequences: A030343 A030344 A030345 * A030347 A030348 A030349

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Initial 1 inserted for consistency with change in A030341 by Sean A. Irvine, Mar 31 2020

Status

approved