|
%I #12 Dec 25 2021 12:04:51
%S 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,
%T 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,
%U 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
%N Decimal expansion of Mertens's constant multiplied by zeta(2).
%F Equals A077761*A013661.
%e 0.430145673798949331799597718049002550...
%t 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]]
%Y Cf. A001620, A013661, A077761, A346367.
%K nonn,cons
%O 0,1
%A _Stefano Spezia_, Jul 14 2021
|
