OFFSET
1,1
FORMULA
7+11+13+17+19=67
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p+4]&&PrimeQ[p+6]&&PrimeQ[p+10]&&PrimeQ[p+12], s=p+p+4+p+6+p+10+p+12; If[PrimeQ[s], AppendTo[lst, s]]], {n, 10!}]; lst
Select[Total/@Select[Partition[Prime[Range[350000]], 5, 1], Differences[#]=={4, 2, 4, 2}&], PrimeQ] (* Harvey P. Dale, Dec 20 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 25 2008
STATUS
approved