A166449 Primes in A166448.

3, 71, 379, 1367, 2741, 6599, 11593, 13093, 13879, 22027, 46183, 70237, 72173, 76123, 104347, 106721, 109141, 134741, 145949, 191749, 225829, 236659, 271057, 275047, 279047, 283079, 303689, 360977, 374953, 403607, 438527, 469969, 507821

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Clear[lst, n, a, b]; a=0; lst={}; Do[a+=Prime[n]; b=a-Prime[n+1]; If[PrimeQ[b], AppendTo[lst, b]], {n, 7!}]; lst

Prog

(PARI) v=List(); s=2; p=2; forprime(q=3, 1e6, if(isprime(s-q), listput(v, s-q)); s+=q; p=q); v=Vec(v) \\ Charles R Greathouse IV, Feb 24 2011

Crossrefs

Sequence in context: A130894 A254665 A106894 * A094458 A183548 A111649

Adjacent sequences: A166446 A166447 A166448 * A166450 A166451 A166452

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Oct 13 2009

Status

approved