|
Search: id:A138400
|
|
|
| A138400 |
|
Ennea-primes: primes that are the sum of nine consecutive primes, with the first, third, sixth and eighth twin primes. |
|
+0
1
|
|
| 38261, 5639533, 16575101, 19521091, 22364431, 82787233, 86405131, 150649753, 191162611, 196530679, 208092607, 210650257, 246934183, 280708297, 302537089, 324315349, 398477927, 521460521, 589499399, 718022411, 734674597, 748523207
(list; graph; listen)
|
|
|
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
|
|
PROGRAM
|
(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: A102332 A068077 A094427 this_sequence A050777 A050765 A013873
Adjacent sequences: A138397 A138398 A138399 this_sequence A138401 A138402 A138403
|
|
KEYWORD
|
nonn,new
|
|
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
|
|
|
Search completed in 0.002 seconds
|
