OFFSET
1,1
COMMENTS
a(n) = coefficient of x^0 of the polynomial Product_{j=0..9} (x-prime(n+j)) of degree 10; the roots of this polynomial are prime(n), ..., prime(n+9).
MATHEMATICA
a = {}; Do[AppendTo[a, Product[Prime[x + n], {n, 0, 9}]], {x, 1, 50}]; a
Times@@@Partition[Prime[Range[50]], 10, 1] (* Harvey P. Dale, Oct 21 2011 *)
PROG
(PARI) {m=12; k=10; for(n=0, m-1, print1(a=prod(j=1, k, prime(n+j)), ", "))} \\ Klaus Brockhaus, Jan 21 2007
(PARI) {m=12; k=10; for(n=1, m, print1(polcoeff(prod(j=0, k-1, (x-prime(n+j))), 0), ", "))} \\ Klaus Brockhaus, Jan 21 2007
(Magma) [&*[ NthPrime(n+k): k in [0..9] ]: n in [1..50] ]; // Vincenzo Librandi, Apr 03 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 11 2007
EXTENSIONS
Edited by Klaus Brockhaus, Jan 21 2007
More terms from Michel Marcus, Mar 16 2026
STATUS
approved
