OFFSET
0,1
REFERENCES
József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, chapter 3, p. 331.
LINKS
Andrzej Schinzel and Tibor Šalát, Remarks on maximum and minimum exponents in factoring, Mathematica Slovaca, Vol. 44, No. 5 (1994), pp. 505-514.
FORMULA
Equals 1/zeta(2) + Sum_{k>=2} ((1/zeta(k+1)) * Product_{p prime, p|k} ((p^(k-e(p,k)+1) - 1)/(p^(k+1) - 1)) - (1/zeta(k)) * Product_{p prime, p|k} ((p^(k-e(p,k)) - 1)/(p^k - 1))), where e(p,k) is the largest exponent of p dividing k.
EXAMPLE
0.848957195004493328142710976854435292677914728994918...
MATHEMATICA
f[k_] := Module[{f = FactorInteger[k]}, p = f[[;; , 1]]; e = f[[;; , 2]]; (1/Zeta[k + 1])* Times @@ ((p^(k - e + 1) - 1)/(p^(k + 1) - 1)) - (1/Zeta[k]) * Times @@ ((p^(k - e) - 1)/(p^k - 1))]; RealDigits[1/Zeta[2] + Sum[f[k], {k, 2, 1000}], 10, 100][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Amiram Eldar, Jul 07 2020
STATUS
approved