login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Prime partial sums of the even-indexed primes.
1

%I #13 Jan 09 2025 18:59:31

%S 3,23,71,151,1409,3631,5519,8737,10627,17609,33457,50119,54869,62423,

%T 104623,146141,154493,158759,163063,195197,214831,274243,279991,

%U 309811,347983,468709,599479,625969,634943,653083,881663,936253,969797,1134421

%N Prime partial sums of the even-indexed primes.

%H Robert Israel, <a href="/A096207/b096207.txt">Table of n, a(n) for n = 1..10000</a>

%e 71 is a term because 71 = 3 + 7 + 13 + 19 + 29.

%p eip:= [seq(ithprime(i),i=2..10^4,2)]:

%p select(isprime,ListTools:-PartialSums(eip)); # _Robert Israel_, Jan 09 2025

%t Select[Table[Plus @@ Prime[2Range[i]], {i, 1000}], PrimeQ[ # ] &]

%Y Primes in A077126.

%K nonn

%O 1,1

%A _Alonso del Arte_, Jul 27 2004

%E Name clarified by _Robert Israel_, Jan 09 2025