A026499 a(n) = length of n-th run of identical symbols in A026498.

3, 1, 7, 1, 1, 3, 3, 1, 8, 1, 6, 1, 7, 1, 1, 3, 3, 1, 1, 7, 1, 3, 3, 1, 7, 1, 1, 3, 3, 1, 8, 1, 6, 1, 8, 1, 3, 3, 1, 1, 7, 1, 6, 1, 7, 1, 1, 3, 3, 1, 8, 1, 6, 1, 7, 1, 1, 3, 3, 1, 1, 7, 1, 3, 3, 1, 7, 1, 1, 3, 3, 1, 1, 7, 1, 6, 1, 8, 1, 3, 3, 1, 1, 7, 1, 3, 3, 1, 7, 1, 1, 3, 3, 1, 8

Offset

1,1

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

Length /@ Split@ Array[1 + Mod[DigitCount[3 # + 1, 2, 1], 2] &, 300, 0] (* Michael De Vlieger, Oct 03 2019 *)

Crossrefs

Sequence in context: A272030 A340878 A346182 * A339452 A242114 A143470

Adjacent sequences: A026496 A026497 A026498 * A026500 A026501 A026502

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Sean A. Irvine, Oct 03 2019

Status

approved