|
|
A119978
|
|
Denominator of the n-th Artin product.
|
|
0
|
|
|
2, 12, 48, 2016, 221760, 6918912, 1881944064, 3079544832, 1558249684992, 1265298744213504, 7591792465281024, 919297051250393088, 36771882050015723520, 13282003796465679335424
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
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
|
|
|
FORMULA
|
a(n) = Denominator[ Product[ 1 - 1/(Prime[k]*(Prime[k]-1)), {k,1,n}]].
|
|
MATHEMATICA
|
Table[Denominator[Product[1-1/(Prime[k]*(Prime[k]-1)), {k, 1, n}]], {n, 1, 20}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|