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,1

Links

Table of n, a(n) for n=1..25.

Formula

5+7+11+13+17=53

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 *)

Crossrefs

Sequence in context: A234104 A212420 A001836 * A118149 A251144 A214230

Adjacent sequences: A144936 A144937 A144938 * A144940 A144941 A144942

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Sep 25 2008

Status

approved