login
A200263
a(n) = 1 iff n-th prime has an odd digit sum.
4
0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1
OFFSET
1
COMMENTS
Characteristic function of A200260.
MATHEMATICA
If[OddQ[Total[IntegerDigits[#]]], 1, 0]&/@Prime[Range[100]] (* Harvey P. Dale, Jul 08 2019 *)
PROG
(Magma) [IsOdd(&+Intseq(NthPrime(n))) select 1 else 0: n in [1..100]]; // Bruno Berselli, Nov 15 2011
CROSSREFS
Sequence in context: A285978 A138712 A029693 * A373153 A051067 A288858
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 15 2011
STATUS
approved