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,1

Links

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

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

Prog

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

Crossrefs

Cf. A001285, A026492, A026498.

Sequence in context: A145740 A138516 A180580 * A349497 A106028 A105307

Adjacent sequences: A026510 A026511 A026512 * A026514 A026515 A026516

Keyword

nonn

Author

Clark Kimberling

Extensions

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

Status

approved