OFFSET
1,2
COMMENTS
6 is in the sequence because the sum of the first 2*6=12 primes as 2+3+5+7+11+13+17+19+23+29+31+37=197 which is prime.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
p = 0; Do[p = p + Prime[2n - 1] + Prime[2n]; If[ PrimeQ[p], Print[n]], {n, 1, 10^4}]
nn=360; With[{prs=Prime[Range[2nn]]}, Select[Range[nn], PrimeQ[Total[Take[ prs, 2#]]]&]] (* Harvey P. Dale, Aug 22 2011 *)
PROG
(PARI) list(lim)=my(v=List(), n, s); lim\=1; lim*=2; forprime(p=2, , if(n++>lim, break); s+=p; if(n%2==0 && isprime(s), listput(v, n/2))); Vec(v) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, May 10 2002
EXTENSIONS
Edited by Robert G. Wilson v, May 13 2002
STATUS
approved