|
%I #4 Mar 31 2012 12:38:14
%S 38261,5639533,16575101,19521091,22364431,82787233,86405131,150649753,
%T 191162611,196530679,208092607,210650257,246934183,280708297,
%U 302537089,324315349,398477927,521460521,589499399,718022411,734674597,748523207
%N Ennea-primes: primes that are the sum of nine consecutive primes, with the first, third, sixth and eighth twin primes.
%e {4229,4231} {4241,4243} {4253} {4259,4261} {4271,4273} Sum = 38261.
%t 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
%o (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",")))
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 08 2008
%E Extended and edited by _Charles R Greathouse IV_, Nov 03 2009
|
