A119978 Denominator of the n-th Artin product.

2, 12, 48, 2016, 221760, 6918912, 1881944064, 3079544832, 1558249684992, 1265298744213504, 7591792465281024, 919297051250393088, 36771882050015723520, 13282003796465679335424

Offset: 1

Author

Alexander Adamchuk, Aug 03 2006

Keywords

• frac
• nonn

Comments

Artin's constant (A005596) is equal to Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,Infinity}]. n-th Artin product is Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,n}].

Links

• Eric Weisstein's World of Mathematics, Artin's Constant.

Crossrefs

Cf. A119534, A091568, A091567, A005596, A048296.

Programs

Mathematica

Table[Denominator[Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,n}]],{n,1,20}]

Formula

a(n) = Denominator[ Product[ 1 - 1/(Prime[k]*(Prime[k]-1)), {k,1,n}]].