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

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

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A001285, A026492, A026498.

Programs

Mathematica

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 *)

PARI

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

Extensions

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