login
A099788
a(n) = Product_{i=1..2n} prime(i).
5
1, 6, 210, 30030, 9699690, 6469693230, 7420738134810, 13082761331670030, 32589158477190044730, 117288381359406970983270, 557940830126698960967415390, 3217644767340672907899084554130, 23768741896345550770650537601358310, 232862364358497360900063316880507363070
OFFSET
0,2
LINKS
MAPLE
a:=n-> mul(ithprime(j), j=1..2*n): seq(a(n), n=0..13); # Emeric Deutsch
MATHEMATICA
Table[Product[Prime[i], {i, 2n}], {n, 0, 20}] (* Wesley Ivan Hurt, Mar 13 2014 *)
PROG
(PARI) a(n) = prod(i=1, 2*n, prime(i)); \\ Michel Marcus, Mar 15 2014
(Magma) [1] cat [&*[NthPrime(j): j in [1..2*n]]: n in [1..20]]; // G. C. Greubel, Sep 04 2019
(Sage) [1]+[product(nth_prime(j) for j in (1..2*n)) for n in (1..20)] # G. C. Greubel, Sep 04 2019
CROSSREFS
Bisection of A002110.
Subset of A030229.
Sequence in context: A359761 A238685 A346017 * A126676 A073100 A093536
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 19 2004
EXTENSIONS
More terms from Emeric Deutsch, Feb 23 2005
Name revised by Wesley Ivan Hurt, Mar 13 2014
STATUS
approved