OFFSET
1,2
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.
FORMULA
a(n) = Numerator[ Product[ 1 - 1/(Prime[k]*(Prime[k]-1)), {k,1,n}]].
MATHEMATICA
Table[Numerator[Product[1-1/(Prime[k]*(Prime[k]-1)), {k, 1, n}]], {n, 1, 20}]
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Alexander Adamchuk, Aug 03 2006
STATUS
approved