A026497 a(n) = length of n-th run of identical symbols in A026492.

7, 1, 6, 1, 8, 1, 3, 3, 1, 1, 7, 1, 6, 1, 7, 1, 1, 3, 3, 1, 8, 1, 6, 1, 8, 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, 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, 8, 1, 6, 1, 8, 1

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A107786 A246949 A154932 * A010146 A229342 A374775

Adjacent sequences: A026494 A026495 A026496 * A026498 A026499 A026500

Keyword

nonn

Author

Clark Kimberling

Extensions

a(55) onward corrected by Sean A. Irvine, Oct 03 2019

Status

approved