A060381 a(n) = prime(n)*prime(n+1)*...*prime(2*n-1), where prime(i) is the i-th prime.
1, 2, 15, 385, 17017, 1062347, 86822723, 10131543907, 1204461778591, 198229051666003, 35224440615606707, 6295457783127226289, 1331590860773071702483, 310692537866322378582047, 78832548083496383033878901, 21381953681344611984282084241
Offset: 0
Examples
a(1)=2; a(2) = 3*5 = 15; a(3) = 5*7*11 = 385.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..250
Crossrefs
Programs
-
GAP
P:=Filtered([1..200],IsPrime);; a:=List([1..15],n->Product([0..n-1],k->P[n+k])); # Muniru A Asiru, Mar 16 2019
-
Haskell
a060381 n = a098012 (2 * n - 1) n -- Reinhard Zumkeller, Oct 02 2014
-
Maple
seq(mul(ithprime(n+k),k=0..n-1),n=0..15); # Muniru A Asiru, Mar 16 2019
-
Mathematica
Table[Times@@Prime[Range[n,2n-1]],{n,20}] (* Harvey P. Dale, Jul 19 2018 *)
-
PARI
a(n) = prod(k=n, 2*n-1, prime(k)); \\ Michel Marcus, Mar 16 2019
Formula
Extensions
a(0)=1 prepended by Alois P. Heinz, Mar 16 2019
Comments