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

Author

Clark Kimberling

Keywords

• nonn

Links

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

Programs

Mathematica

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

Extensions

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