|
|
A127342
|
|
Product of 10 consecutive primes.
|
|
5
|
|
|
6469693230, 100280245065, 1236789689135, 10141675450907, 62298863484143, 266186053068611, 1085220062510491, 3766351981654057, 12091972151626183, 35224440615606707, 86239147714071593, 203079283326684719
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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).
|
|
LINKS
|
|
|
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) 1. {m=12; k=10; for(n=0, m-1, print1(a=prod(j=1, k, prime(n+j)), ", "))} 2. {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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|