A200246 a(n)=1 iff binary weight of n-th prime is odd.

1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1

Offset

1

Comments

Characteristic function of A027698.

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

If[OddQ[Total[IntegerDigits[#, 2]]], 1, 0]&/@Prime[Range[90]] (* Harvey P. Dale, Jun 04 2012 *)

Prog

(Magma) [IsOdd(&+Intseq(NthPrime(n), 2)) select 1 else 0: n in [1..100]]; // Bruno Berselli, Nov 16 2011

Crossrefs

Cf. A027698, A200244.

Sequence in context: A254113 A365495 A267037 * A267292 A267178 A285277

Adjacent sequences: A200243 A200244 A200245 * A200247 A200248 A200249

Keyword

nonn

Author

N. J. A. Sloane, Nov 15 2011

Status

approved