A030392 Length of n-th run of digit 0 in A030386.

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

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Comments

a(n) = A030379(n-1) for n=2..149 but then the alignment starts to diverge: a(149) = A030379(148) = 3 but a(150) = 1 whereas A030379(149) = 2. These runs of 0 are in the base 4 expansion of 260, which is 10010. - Andrei Zabolotskii, Jul 22 2025

Links

• R. J. Mathar, Table of n, a(n) for n = 1..761

Programs

Mathematica

Length/@(If[#[[1]]>0,Nothing,#]&/@Split[Flatten[Table[Reverse[IntegerDigits[n,4]],{n,0,300}]]]) (* Harvey P. Dale, Apr 18 2024 *)

Extensions

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