A200263 - OEIS

%I #15 Mar 20 2023 13:05:39

%S 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,

%T 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,

%U 0,0,1,1,0,1,1,0,0,1,1,1,0,1,0,0,0,1

%N a(n) = 1 iff n-th prime has an odd digit sum.

%C Characteristic function of A200260.

%H T. D. Noe, <a href="/A200263/b200263.txt">Table of n, a(n) for n = 1..1000</a>

%t If[OddQ[Total[IntegerDigits[#]]],1,0]&/@Prime[Range[100]] (* _Harvey P. Dale_, Jul 08 2019 *)

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

%Y Cf. A200260, A200261.

%K nonn,base

%O 1

%A _N. J. A. Sloane_, Nov 15 2011