A144940 Primes of form: sum of prime 5-tuples (A022007).
67, 17317, 80317, 97117, 398467, 1333417, 1423717, 1876267, 2317267, 3332167, 4890367, 5456317, 5911417, 6151867, 6622867, 9151717, 9522367, 11013967, 13372717, 15381967, 17080267, 21663067, 22439017, 22552417, 24262267
Offset: 1
Keywords
Programs
-
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 *)
Formula
7+11+13+17+19=67