|
|
A305546
|
|
Primes that are sums of three, five, seven and eleven consecutive primes.
|
|
1
|
|
|
311, 67141, 125963951, 161888809, 201388259, 559069591, 669472577, 917135831, 951993491, 974896207, 1103919101, 1128722657, 1426246369, 1691534683, 1977185207, 2455167607, 2472527851, 2558204381, 2583232213, 2643398713, 2708464399, 2815245317, 2868455287
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Module[{nn=10^8, prs, p3, p5, p7, p11}, prs=Prime[Range[nn]]; p3=Select[ Total/@ Partition[ prs, 3, 1], PrimeQ]; p5=Select[Total/@Partition[prs, 5, 1], PrimeQ]; p7=Select[ Total/@Partition[prs, 7, 1], PrimeQ]; p11=Select[Total/@Partition[prs, 11, 1], PrimeQ]; Intersection[ p3, p5, p7, p11]] (* Harvey P. Dale, Sep 05 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|