OFFSET
1,1
COMMENTS
{5 penta-} {9 ennea-} Table of non-technical numeric prefixes -- http://en.wikipedia.org/wiki/Numerical_prefix
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, p0]], {n, 5, 10^6}]; a
spn8Q[m_]:=Module[{d=Differences[m]}, PrimeQ[Total[m]]&&d[[1]] == d[[3]] == d[[6]] == d[[8]]==2]; Select[Partition[Prime[Range[650000]], 9, 1], spn8Q][[All, 5]] (* Harvey P. Dale, Aug 24 2016 *)
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 08 2008
EXTENSIONS
More terms from Harvey P. Dale, Aug 24 2016
STATUS
approved