A200261 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A200261

a(n) = 1 iff n-th prime has an even digit sum.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

COMMENTS

Characteristic function of A200259.

LINKS

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

MATHEMATICA

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

PROG

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

CROSSREFS

Cf. A200259, A200263.