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
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
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 -
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