%I #97 Sep 27 2024 07:49:02
%S 5,8,1,9,4,8,6,5,9,3,1,7,2,9,0,7,9,7,9,2,8,1,4,9,8,8,4,5,0,2,3,6,7,5,
%T 5,9,3,0,4,8,3,2,8,7,3,0,7,1,7,7,2,5,2,1,8,2,3,4,2,1,2,9,9,2,6,5,2,5,
%U 1,2,3,1,5,5,5,9,5,0,3,4,6,1,4,3,0,1,2,3,6,1,3,1,4,9,2,4,1,3,4,9,6
%N Second-order term in the asymptotic expansion of B(x), the count of numbers up to x which are the sum of two squares.
%C K = A064533, the Landau-Ramanujan constant, is the first-order term. This constant is c = lim_{x->oo} (B(x)*sqrt(log x)/(K*x) - 1)*log x. [Corrected by _Alessandro Languasco_, Sep 14 2022]
%C 130000 digits are available, see link to web page. - _Alessandro Languasco_, Mar 27 2024
%D Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 2.3 Landau-Ramanujan constants, p. 99.
%H Bruce C. Berndt and Pieter Moree, <a href="https://arxiv.org/abs/2409.03428">Sums of two squares and the tau-function: Ramanujan's trail</a>, arXiv:2409.03428 [math.NT], 2024. See p. 32.
%H Alexandru Ciolan, Alessandro Languasco and Pieter Moree, <a href="https://doi.org/10.1016/j.jmaa.2022.126854">Landau and Ramanujan approximations for divisor sums and coefficients of cusp forms</a>, section 10, 47500 digits are obtained, Journal of Mathematical Analysis and Applications, 2022; see also preprint on <a href="https://arxiv.org/abs/2109.03288">arXiv</a>, arXiv:2109.03288 [math.NT], 2021.
%H Alessandro Languasco, <a href="https://www.dei.unipd.it/~languasco/CLM.html">Programs and numerical results</a>, providing 130000 digits. [Note: information ancillary to above link.]
%H Alessandro Languasco and Pieter Moree, <a href="https://arxiv.org/abs/2406.16547">Euler constants from primes in arithmetic progression</a>, arXiv:2406.16547 [math.NT], 2024. See p. 9.
%H David Hare, <a href="http://web.archive.org/web/20001210182300/http://www.lacim.uqam.ca/piDATA/landau.txt">Landau-Ramanujan Constant, second order</a> obtained about 5000 digits, 1996.
%H Daniel Shanks, <a href="http://dx.doi.org/10.1090/S0025-5718-1964-0159174-9">The second-order term in the asymptotic expansion of B(x)</a>, Mathematics of Computation 18 (1964), pp. 75-86.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Landau-RamanujanConstant.html">Landau-Ramanujan Constant</a>.
%e 0.58194865931729079777136487517474826173838317235153574360562...
%t digits = 101; m0 = 5; dm = 5; beta[x_] := 1/4^x*(Zeta[x, 1/4] - Zeta[x, 3/4]); L = Pi^(3/2)/Gamma[3/4]^2*2^(1/2)/2; Clear[f]; f[m_] := f[m] = 1/2*(1 - Log[Pi*E^EulerGamma/(2*L)]) - 1/4*NSum[ Zeta'[2^k]/Zeta[2^k] - beta'[2^k]/beta[2^k] + Log[2]/(2^(2^k) - 1), {k, 1, m}, WorkingPrecision -> digits + 10] ; f[m0]; f[m = m0 + dm]; While[RealDigits[f[m], 10, digits] != RealDigits[f[m - dm], 10, digits], m = m + dm]; RealDigits[f[m], 10, digits] // First (* _Jean-François Alcover_, May 27 2014 *)
%o (PARI) L(s)=sumalt(k=0,(-1)^k/(2*k+1)^s)
%o LL(s)=L'(s)/L(s)
%o ZZ(s)=zeta'(s)/zeta(s)
%o sm(x)=my(s);forprime(q=2,x,if(q%4==3,s+=log(q)/(q^8-1))); s+1/49/x^7+log(x)/7/x^7
%o 1/2+log(2)/4-Euler/4-LL(1)/4-ZZ(2)/4+LL(2)/4-log(2)/12-ZZ(4)/4+LL(4)/4-log(2)/60+sm(1e5)/2
%Y Cf. A064533, A001481.
%K nonn,cons
%O 0,1
%A _Charles R Greathouse IV_, Jul 03 2013
%E Corrected and extended by _Jean-François Alcover_, Mar 19 2014 and again May 27 2014