A200244 a(n)=1 iff binary weight of n-th prime is even.

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

Offset

1

Comments

Characteristic function of A027700.

Links

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

Mathematica

Table[1 - Mod[Total[IntegerDigits[Prime[n], 2]], 2], {n, 100}] (* T. D. Noe, Nov 21 2011 *)

Prog

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

Crossrefs

Cf. A027700, A200246.

Sequence in context: A305816 A359820 A241979 * A261185 A093692 A254114

Adjacent sequences: A200241 A200242 A200243 * A200245 A200246 A200247

Keyword

nonn

Author

N. J. A. Sloane, Nov 15 2011

Status

approved