Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A138400
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
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

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified November 29 12:46 EST 2009. Contains 167659 sequences.


AT&T Labs Research