|
| |
|
|
A138400
|
|
Ennea-primes: primes that are the sum of nine consecutive primes, with the first, third, sixth and eighth twin primes.
|
|
0
| |
|
|
38261, 5639533, 16575101, 19521091, 22364431, 82787233, 86405131, 150649753, 191162611, 196530679, 208092607, 210650257, 246934183, 280708297, 302537089, 324315349, 398477927, 521460521, 589499399, 718022411, 734674597, 748523207
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| {4229,4231} {4241,4243} {4253} {4259,4261} {4271,4273} Sum = 38261.
|
|
|
MATHEMATICA
| a={}; Do[p0=Prime[n]; a1=Prime[n-4]; a2=Prime[n-3]; b1=Prime[n-2]; b2=Prime[n-1]; c1=Prime[n+1]; c2=Prime[n+2]; d1=Prime[n+3]; d2=Prime[n+4]; sp=a1+a2+b1+b2+p0+c1+c2+d1+d2; If[PrimeQ[sp]&&a2-a1==2&&b2-b1==2&&c2-c1==2&&d2-d1==2, AppendTo[a, sp]], {n, 5, 10^6}]; a
|
|
|
PROG
| (PARI) forprime(p=2, 4e9, if(!isprime(p+2), next); n=nextprime(p+4); if(!isprime(n+2), next); middle=nextprime(n+4); n=nextprime(middle+2); if(!isprime(n+2), next); n=nextprime(n+4)+2; if(!isprime(n), next); s=0; forprime(q=p, n, s+=q); if(isprime(s), print1(s", ")))
|
|
|
CROSSREFS
| Sequence in context: A172842 A068077 A094427 * A050777 A050765 A203792
Adjacent sequences: A138397 A138398 A138399 * A138401 A138402 A138403
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), May 08 2008
|
|
|
EXTENSIONS
| Extended and edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Nov 03 2009
|
| |
|
|
