OFFSET
1,1
COMMENTS
Subsequence of primes of A077131. - Michel Marcus, Oct 21 2015
EXAMPLE
a(3) = 89 because 89 = 2 + 5 + 11 + 17 + 23 + 31.
MATHEMATICA
Select[Table[Plus @@ Prime[2Range[i] - 1], {i, 1000}], PrimeQ[ # ] &]
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Alonso del Arte, Jul 27 2004
STATUS
approved