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

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

Offset

0,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A001285, A026492, A026513.

Sequence in context: A136754 A276788 A282625 * A140685 A055666 A251139

Adjacent sequences: A026495 A026496 A026497 * A026499 A026500 A026501

Keyword

nonn

Author

Clark Kimberling

Extensions

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

Status

approved