A144939 Primes that are the sum of prime 5-tuples (A022006).

53, 83, 7433, 978683, 1238033, 2325833, 3168983, 3305483, 4148633, 4289783, 5112533, 5456333, 5867933, 6231833, 6842333, 12093383, 12499733, 13820633, 14201333, 15516383, 18107333, 19189283, 19470233, 21121883, 24887183

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Sep 25 2008

Keywords

• nonn

Programs

Mathematica

lst={};Do[p=Prime[n];If[PrimeQ[p+2]&&PrimeQ[p+6]&&PrimeQ[p+8]&&PrimeQ[p+12],s=p+p+2+p+6+p+8+p+12;If[PrimeQ[s],AppendTo[lst,s]]],{n,10!}];lst
Select[Total/@Select[Partition[Prime[Range[16*10^5]],5,1],Differences[#] == {2,4,2,4}&],PrimeQ] (* Harvey P. Dale, Dec 08 2014 *)

Formula

5+7+11+13+17=53