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

Author

Clark Kimberling

Keywords

• nonn
• base

Programs

Mathematica

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

Extensions

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