login

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

Prime partial sums of the odd-indexed primes.
1

%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