A127350 a(n) = Sum_{i=n..n+3} Sum_{j=i+1..n+4} prime(i)*prime(j).

288, 574, 1078, 1750, 2710, 4006, 5590, 7630, 10270, 13030, 15766, 19462, 23510, 27550, 32830, 38590, 43750, 49190, 55570, 62302, 70726, 80470, 89350, 98710, 106870, 113590, 124822, 137590, 151990, 167230, 186454, 199798, 214774, 230270, 247630, 262942, 281422

Offset: 1

Author

Artur Jasinski, Jan 11 2007

Keywords

• nonn

Comments

a(n) = absolute value of the coefficient of x^3 of the polynomial Prod_{j=0,4}(x-prime(n+j)) of degree 5; the roots of this polynomial are prime(n), ..., prime(n+4); cf. Vieta's formulas.

All terms are even.

Links

• Eric Weisstein's World of Mathematics, Vieta's Formulas

Crossrefs

Cf. A000040, A127345, A127346, A127347, A127348, A127349, A127351, A070934, A006094.

Programs

Mathematica

Table[Prime[x] Prime[x + 1] + Prime[x] Prime[x + 2] + Prime[x] Prime[x + 3] + Prime[x] Prime[x + 4] + Prime[x + 1] Prime[x + 2] + Prime[x + 1] Prime[x + 3] + Prime[x + 1] Prime[x + 4] + Prime[x + 2] Prime[x + 3] + Prime[x + 2] Prime[x + 4] + Prime[x + 3] Prime[x + 4], {x, 1, 100}]

PARI

{m=34;k=4;for(n=1,m,print1(sum(i=n,n+k-1,sum(j=i+1,n+k,prime(i)*prime(j))),","))} \\ Klaus Brockhaus, Jan 21 2007

PARI

{m=34;k=4;for(n=1,m,print1(abs(polcoeff(prod(j=0,k,(x-prime(n+j))),3)),","))} \\ Klaus Brockhaus, Jan 21 2007

Extensions

Edited by Klaus Brockhaus, Jan 21 2007