|
|
A127335
|
|
Numbers that are the sum of 8 successive primes.
|
|
14
|
|
|
77, 98, 124, 150, 180, 210, 240, 270, 304, 340, 372, 408, 442, 474, 510, 546, 582, 620, 660, 696, 732, 768, 802, 846, 888, 928, 966, 1012, 1056, 1104, 1154, 1194, 1236, 1278, 1320, 1362, 1404, 1444, 1480, 1524, 1574, 1622, 1670, 1712, 1758, 1802, 1854, 1900
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(n) is the absolute value of coefficient of x^7 of the polynomial Prod_{j=0,7}(x-prime(n+j)) of degree 8; the roots of this polynomial are prime(n), ..., prime(n+7).
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
S:= [0, op(ListTools:-PartialSums(select(isprime, [2, seq(i, i=3..1000, 2)])))]:
|
|
MATHEMATICA
|
a = {}; Do[AppendTo[a, Sum[Prime[x + n], {n, 0, 7}]], {x, 1, 50}]; a
Total/@Partition[Prime[Range[60]], 8, 1] (* Harvey P. Dale, Sep 10 2019 *)
|
|
PROG
|
(PARI) {m=48; k=8; for(n=1, m, print1(a=sum(j=0, k-1, prime(n+j)), ", "))} \\ Klaus Brockhaus, Jan 13 2007
(PARI) {m=48; k=8; for(n=1, m, print1(abs(polcoeff(prod(j=0, k-1, (x-prime(n+j))), k-1)), ", "))} \\ Klaus Brockhaus, Jan 13 2007
(Magma) [&+[ NthPrime(n+k): k in [0..7] ]: n in [1..90] ]; // Vincenzo Librandi, Apr 03 2011
|
|
CROSSREFS
|
Cf. A011974, A001043, A034961, A034963, A034964, A127333, A127334, A127336, A127337, A127338, A127339.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|