A071151 Primes which are the sum of the first k odd primes for some k.

3, 127, 379, 499, 6079, 6599, 8273, 9521, 11597, 13099, 22037, 33623, 34913, 49279, 52517, 54167, 64613, 92951, 101999, 116531, 182107, 222269, 225829, 240379, 255443, 283079, 356387, 360977, 448867, 535669, 541339, 552751, 611953, 624209

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

s=0; lst={}; Do[p=Prime[n]; s+=p; If[PrimeQ[s], AppendTo[lst, s]], {n, 2, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 28 2009 *)
Select[Accumulate[Prime[Range[2, 500]]], PrimeQ]  (* Harvey P. Dale, Mar 14 2011 *)

Prog

(PARI) list(lim)=my(v=List(), s); forprime(p=3, , if((s+=p)>lim, return(Vec(v))); if(isprime(s), listput(v, s))) \\ Charles R Greathouse IV, May 22 2017

Crossrefs

Analogous to A013918.

Cf. A013916-A013918, A065091, A071148-A071150, A007504.

Sequence in context: A221637 A142007 A339084 * A041867 A134711 A376466

Adjacent sequences: A071148 A071149 A071150 * A071152 A071153 A071154

Keyword

nonn

Author

Labos Elemer, May 13 2002

Extensions

Name simplified by Charles R Greathouse IV, May 22 2017

Status

approved