Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Jan 09 2025 18:48:55
%S 2,7,89,659,1181,5021,9923,10909,11941,17959,26879,48437,53077,65707,
%T 71191,74051,119723,135019,147151,173053,226381,293177,323797,362911,
%U 411449,470621,478321,542251,575837,592987,646259,721141,730819,740599
%N Prime partial sums of the odd-indexed primes.
%C Subsequence of primes of A077131. - _Michel Marcus_, Oct 21 2015
%H Robert Israel, <a href="/A096208/b096208.txt">Table of n, a(n) for n = 1..10000</a>
%e a(3) = 89 because 89 = 2 + 5 + 11 + 17 + 23 + 31.
%p oip:= [seq(ithprime(i), i=1..10^4, 2)]:
%p select(isprime, ListTools:-PartialSums(oip)); # _Robert Israel_, Jan 09 2025
%t Select[Table[Plus @@ Prime[2Range[i] - 1], {i, 1000}], PrimeQ[ # ] &]
%o (PARI) lista(nn) = {s = 0; add = 1; forprime(p=1, nn, if (add, s += p; if (isprime(s), print1(s, ", "));); add = ! add;);} \\ _Michel Marcus_, Oct 21 2015
%Y Intersection of A077131 and A000040.
%K nonn
%O 1,1
%A _Alonso del Arte_, Jul 27 2004
%E Name clarified by _Robert Israel_, Jan 09 2025