A346366 Decimal expansion of Mertens's constant multiplied by zeta(2).
4, 3, 0, 1, 4, 5, 6, 7, 3, 7, 9, 8, 9, 4, 9, 3, 3, 1, 7, 9, 9, 5, 9, 7, 7, 1, 8, 0, 4, 9, 0, 0, 2, 5, 5, 0, 1, 6, 5, 5, 0, 6, 2, 3, 7, 3, 8, 6, 6, 6, 7, 5, 0, 5, 7, 0, 9, 4, 7, 1, 2, 5, 2, 3, 9, 3, 0, 9, 9, 6, 8, 4, 8, 1, 3, 0, 7, 4, 9, 4, 0, 3, 4, 6, 9, 6, 3, 5, 4, 0, 6, 5, 8, 3, 6, 8, 8, 2, 2, 9, 2, 9, 7, 6, 4
Offset: 0
Examples
0.430145673798949331799597718049002550...
Programs
-
Mathematica
digits = 105; M = (EulerGamma - NSum[ PrimeZetaP[n] / n, {n, 2, Infinity}, WorkingPrecision -> digits+10, NSumTerms -> 3*digits]); (* A077761 *) First[RealDigits[M Zeta[2], 10, digits]]