OFFSET
1,1
COMMENTS
a(n) is the absolute value of the coefficient of x^0 of the polynomial Product_{j=0..10} (x-prime(n+j)) of degree 11; the roots of this polynomial are prime(n), ..., prime(n+10).
MATHEMATICA
a = {}; Do[AppendTo[a, Product[Prime[x + n], {n, 0, 10}]], {x, 1, 50}]; a
Times@@@Partition[Prime[Range[50]], 11, 1] (* Harvey P. Dale, Oct 21 2011 *)
PROG
(PARI) {m=10; k=11; for(n=0, m-1, print1(a=prod(j=1, k, prime(n+j)), ", "))} \\ Klaus Brockhaus, Jan 21 2007
(PARI) {m=10; k=11; for(n=1, m, print1(abs(polcoeff(prod(j=0, k-1, (x-prime(n+j))), 0)), ", "))} \\ Klaus Brockhaus, Jan 21 2007
(Magma) [&*[ NthPrime(n+k): k in [0..10] ]: 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
STATUS
approved