A030380 Length of n-th run of digit 1 in A030373.

1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 5, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 3, 2, 3, 7, 3, 2, 2, 3, 2, 2, 2, 3, 2, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1

Offset

1,3

Links

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

Mathematica

Length/@Select[Split[Flatten[IntegerDigits[Range[200], 4]]], MemberQ[#, 1]&] (* Harvey P. Dale, Dec 30 2018 *)

Crossrefs

Sequence in context: A318663 A359196 A348969 * A375932 A066636 A137578

Adjacent sequences: A030377 A030378 A030379 * A030381 A030382 A030383

Keyword

nonn,base

Author

Clark Kimberling

Status

approved