A096208 Prime partial sums of the odd-indexed primes.

2, 7, 89, 659, 1181, 5021, 9923, 10909, 11941, 17959, 26879, 48437, 53077, 65707, 71191, 74051, 119723, 135019, 147151, 173053, 226381, 293177, 323797, 362911, 411449, 470621, 478321, 542251, 575837, 592987, 646259, 721141, 730819, 740599

Offset: 1

Author

Alonso del Arte, Jul 27 2004

Keywords

• nonn

Comments

Subsequence of primes of A077131. - Michel Marcus, Oct 21 2015

Examples

			a(3) = 89 because 89 = 2 + 5 + 11 + 17 + 23 + 31.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A077131 and A000040.

Programs

Maple

oip:= [seq(ithprime(i), i=1..10^4, 2)]:
select(isprime, ListTools:-PartialSums(oip)); # Robert Israel, Jan 09 2025

Mathematica

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

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

Extensions

Name clarified by Robert Israel, Jan 09 2025