OFFSET
2,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..1000
Eric Weisstein's World of Mathematics, Artin's Constant.
FORMULA
a(n) = Max[FactorInteger[Numerator[Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,n}]]]].
MATHEMATICA
Table[Max[FactorInteger[Numerator[Product[1-1/(Prime[k]*(Prime[k]-1)), {k, 1, n}]]]], {n, 2, 100}]
PROG
(Magma) [Max(PrimeDivisors(Numerator(&*[1-1/(NthPrime(k)^2-NthPrime(k)):k in [1..n]]))): n in [2..45]]; // Marius A. Burtea, Feb 18 2020
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Alexander Adamchuk, Jul 27 2006
STATUS
approved