login
A200244
a(n)=1 iff binary weight of n-th prime is even.
4
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.
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
Sequence in context: A305816 A359820 A241979 * A261185 A093692 A254114
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 15 2011
STATUS
approved