OFFSET
0,1
COMMENTS
Graham, Knuth & Patashnik incorrectly give this constant as 0.261972128. - Robert G. Wilson v, Dec 02 2005 [This was corrected in the second edition (1994). - T. D. Noe, Mar 11 2017]
Also the average deviation of the number of distinct prime factors: sum_{n < x} omega(n) = x log log x + B_1 x + O(x) where B_1 is this constant, see (e.g.) Hardy & Wright. - Charles R Greathouse IV, Mar 05 2021
Named after the Polish mathematician Franz Mertens (1840-1927). Sometimes called Meissel-Mertens constant, after Mertens and the German astronomer Ernst Meissel (1826-1895). - Amiram Eldar, Jun 16 2021
REFERENCES
Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2004, pp. 94-98
Ronald L. Graham, Donald E. Knuth and Oren Patashnik, Concrete Mathematics, A Foundation For Computer Science, Addison-Wesley, Reading, MA, 1989, p. 23.
G. H. Hardy and E. M. Wright, An Introduction to the Theory of Numbers, 4th ed. (1975). Oxford, England: Oxford University Press. See 22.10, "The number of prime factors of n".
József Sándor, Dragoslav S. Mitrinovic, Borislav Crstici, Handbook of Number Theory I, Springer Science & Business Media, 2005, Section VII.28, p. 257.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..5000
Christian Axler, New estimates for some functions defined over primes, Integers, Vol. 18 (2018), Article #A52.
Chris Caldwell, The Prime Pages, There are infinitely many primes, but, how big of an infinity?
Henri Cohen, High precision computation of Hardy-Littlewood constants, preprint, 1998. - From N. J. A. Sloane, Jan 26 2013
Pierre Dusart, Explicit estimates of some functions over primes, The Ramanujan Journal, Vol. 45 (2018), pp. 227-251.
Pierre Dusart, On the divergence of the sum of prime reciprocals, WSEAS Transactions on Math. (2023) Vol.22, 508-513.
Steven R. Finch, Mathematical Constants II, Encyclopedia of Mathematics and Its Applications, Cambridge University Press, Cambridge, 2018, p. 203.
Philippe Flajolet and Ilan Vardi, Zeta function expansions of some classical constants.
Tengiz O. Gogoberidze, Baker's dozen digits of two sums involving reciprocal products of an integer and its greatest prime factor, arXiv:2407.12047 [math.GM], 2024. See p. 3.
Pieter Moree, Mathematical constants.
Dimbinaina Ralaivaosaona and Faratiana Brice Razakarinoro, An explicit upper bound for Siegel zeros of imaginary quadratic fields, arXiv:2001.05782 [math.NT], 2020.
Xavier Gourdon and Pascal Sebah, Constants from number theory
Torsten Sillke, The Harmonic Numbers and Series.
Jonathan Sondow and Kieren MacMillan, Primary pseudoperfect numbers, arithmetic progressions, and the Erdos-Moser equation, Amer. Math. Monthly, Vol. 124, No. 3 (2017), pp. 232-240; also on arXiv preprint, arXiv:math/1812.06566 [math.NT], 2018.
Mark B. Villarino, Mertens' proof of Mertens' Theorem, arXiv:math/0504289 [math.HO], 2005.
Eric Weisstein's World of Mathematics, Mertens Constant.
Eric Weisstein's World of Mathematics, Prime Zeta Function.
Eric Weisstein's World of Mathematics, Harmonic Series of Primes.
Wikipedia, Meissel-Mertens constant.
Marek Wójtowicz, Another proof on the existence of Mertens's constant, Proc. Japan Acad. Ser. A Math. Sci., Vol. 87, No. 2 (2011), pp. 22-23.
FORMULA
Equals A001620 - Sum_{n>=2} zeta_prime(n)/n where the zeta prime sequence is A085548, A085541, A085964, A085965, A085966 etc. [Sebah and Gourdon] - R. J. Mathar, Apr 29 2006
Equals gamma + Sum_{p prime} (log(1-1/p) + 1/p), where gamma is Euler's constant (A001620). - Amiram Eldar, Dec 25 2021
EXAMPLE
0.26149721284764278375542683860869585905156664826119920619206421392...
MATHEMATICA
$MaxExtraPrecision = 400; RealDigits[ N[EulerGamma + NSum[(MoebiusMu[m]/m)*Log[N[Zeta[m], 120]], {m, 2, 1000}, Method -> "EulerMaclaurin", AccuracyGoal -> 120, NSumTerms -> 1000, PrecisionGoal -> 120, WorkingPrecision -> 120] , 120]][[1, 1 ;; 105]]
(* or, from version 7 up: *) digits = 105; M = EulerGamma - NSum[ PrimeZetaP[n] / n, {n, 2, Infinity}, WorkingPrecision -> digits+10, NSumTerms -> 3*digits]; RealDigits[M, 10, digits] // First (* Jean-François Alcover, Mar 16 2011, updated Sep 01 2015 *)
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
T. D. Noe, Nov 14 2002
STATUS
approved