A066206 a(n) = Product_{k=1..n} prime(2k), where prime(k) is the k-th prime.
3, 21, 273, 5187, 150423, 5565651, 239322993, 12684118629, 773731236369, 54934917782199, 4339858504793721, 386247406926641169, 39010988099590758069, 4174175726656211113383, 471681857112151855812279, 61790323281691893111408549, 8588854936155173142485788311
Offset: 1
Keywords
Examples
a(3) = prime(2) * prime(4) * prime(6) = 3 * 7 * 13 = 273.
Links
- Harry J. Smith, Table of n, a(n) for n = 1..100
Programs
-
Maple
a:= proc(n) option remember; `if`(n=0, 1, a(n-1)*ithprime(2*n)) end: seq(a(n), n=1..17); # Alois P. Heinz, Jan 12 2022
-
Mathematica
FoldList[Times, Prime@ Range[2, 30, 2]] (* Michael De Vlieger, Sep 24 2017 *)
-
PARI
{ for (n=1, 100, p=1; for (k=1, n, p*=prime(2*k)); write("b066206.txt", n, " ", p) ) } \\ Harry J. Smith, Feb 05 2010
-
PARI
a(n) = prod(k=1, n, prime(2*k)); \\ Michel Marcus, Jan 13 2022
Comments