[go: up one dir, main page]

login
A144940
Primes of form: sum of prime 5-tuples (A022007).
0
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,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
Sequence in context: A156121 A280004 A211961 * A211962 A263463 A367903
KEYWORD
nonn
AUTHOR
STATUS
approved