A030420 Length of n-th run of digit 1 in A030413.

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

Offset

1,2

Links

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

Mathematica

Length/@Select[Split[Rest[Flatten[IntegerDigits[#, 4]&/@Fibonacci[Range[100]]]]], #[[1]]==1&] (* Harvey P. Dale, Aug 03 2024 *)

Crossrefs

Sequence in context: A297966 A103161 A338000 * A133902 A265823 A305717

Adjacent sequences: A030417 A030418 A030419 * A030421 A030422 A030423

Keyword

nonn,base

Author

Clark Kimberling

Status

approved