A155851 n is prime and is the sum of the first k primes for some k, start from 5.
5, 23, 53, 233, 563, 1259, 2579, 2909, 12713, 22543, 28099, 31729, 39607, 41017, 42463, 87511, 110359, 115279, 117787, 138863, 141671, 213533, 242243, 257353, 265117, 269069, 289171, 310019, 318557, 327193, 331603, 354097, 372607, 441101
Offset: 1
Keywords
Programs
-
Mathematica
s=0;lst={};Do[p=Prime[n];s+=p;If[PrimeQ[s],AppendTo[lst,s]],{n,3,7!}];lst Select[Accumulate[Prime[Range[3,500]]],PrimeQ] (* Harvey P. Dale, Jun 22 2015 *)
Comments