OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
{29, 31} {37} {41, 43} Sum = 181
MATHEMATICA
a={}; Do[p0=Prime[n]; a1=Prime[n-2]; a2=Prime[n-1]; b1=Prime[n+1]; b2=Prime[n+2]; sp=a1+a2+p0+b1+b2; If[PrimeQ[sp]&&a2-a1==2&&b2-b1==2, AppendTo[a, sp]], {n, 3, 10^3}]; a
Select[Total/@Select[Partition[Prime[Range[1000]], 5, 1], #[[2]]-#[[1]]== #[[5]] -#[[4]]==2&], PrimeQ] (* Harvey P. Dale, Aug 26 2019 *)
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 08 2008
EXTENSIONS
More terms from Harvey P. Dale, Aug 26 2019
STATUS
approved