A031228 Length of n-th run of digit 2 in A031219.

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

Offset

1,5

Links

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

Mathematica

Length/@(If[MemberQ[#, 2], #, Nothing]&/@Split[Flatten[ IntegerDigits[ Range[ 400], 5]]]) (* Harvey P. Dale, Dec 19 2021 *)

Crossrefs

Sequence in context: A327401 A091407 A031229 * A031227 A185358 A368247

Adjacent sequences: A031225 A031226 A031227 * A031229 A031230 A031231

Keyword

nonn,base

Author

Clark Kimberling

Status

approved