A026498 -id:A026498 - cp's OEIS frontend

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

Clark Kimberling

nonn

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

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

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

A026492 a(n) = t(3n), where t = A001285 (Thue-Morse sequence).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1

Offset: 0

Clark Kimberling

nonn

Michael De Vlieger, Table of n, a(n) for n = 0..10000
Michael Gilleland, Some Self-Similar Integer Sequences

Cf. A001285, A026498, A026513.

Array[1 + Mod[DigitCount[3 #, 2, 1], 2] &, 105, 0] (* Michael De Vlieger, Oct 03 2019 *)

a(n)=1+hammingweight(3*n)%2 \\ Charles R Greathouse IV, May 09 2016

Name and Pari adapted to match offset in A001285 by Sean A. Irvine, Oct 02 2019

A026513 a(n) = t(2+3n), where t = A001285 (Thue-Morse sequence).

Original entry on oeis.org

2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1

Offset: 0

Clark Kimberling

nonn

Michael De Vlieger, Table of n, a(n) for n = 0..9999

Cf. A001285, A026492, A026498.

Array[1 + Mod[DigitCount[3 # + 2, 2, 1], 2] &, 105, 0] (* Michael De Vlieger, Oct 06 2019 *)
Table[ThueMorse[2+3n],{n,0,100}]+1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 29 2020 *)

a(n)=1+hammingweight(3*n+2)%2 \\ Charles R Greathouse IV, May 09 2016

Name and Pari adapted to match offset in A001285 by Sean A. Irvine, Oct 05 2019

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Programs

Mathematica

Extensions

A026492 a(n) = t(3n), where t = A001285 (Thue-Morse sequence).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A026513 a(n) = t(2+3n), where t = A001285 (Thue-Morse sequence).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions