%I #19 Jun 05 2023 01:13:23
%S 0,0,1,8,7,2,6,8,2,4,4,9,7,6,8,5,4,6,1,1,5,6,3,8,5,7,9,4,7,9,9,6,1,3,
%T 9,8,8,6,9,1,6,2,8,9,5,6,5,2,6,1,9,5,6,3,8,4,1,3,3,1,5,7,4,5,3,7,8,8,
%U 4,3,1,9,5,1,7,0,9,8,0,2,2,6,7,5,1,7,0,7,2,7,8,4,0,2,4,5,6,7,9,7,9,9,8,7
%N Decimal expansion of Sum_{k>=1} 1/(k*(exp(2*Pi*k)-1)).
%D Bruce C. Berndt, Ramanujan Notebook part II, Infinite series, Springer Verlag, 1989, pp. 280-281.
%H Steven R. Finch, <a href="https://arxiv.org/abs/2001.00578">Errata and Addenda to Mathematical Constants</a>, arXiv:2001.00578 [math.HO], 2020-2022, p. 6.
%H Simon Plouffe, <a href="http://www.plouffe.fr/simon/inspired2.pdf">Identities inspired by Ramanujan Notebooks (part 2)</a>, April 2006.
%H Linas Vepštas, <a href="https://doi.org/10.1007/s11139-011-9335-9">On Plouffe's Ramanujan identities</a>, The Ramanujan Journal, Vol. 27 (2012), pp. 387-408; <a href="https://cyberleninka.org/article/n/534457.pdf">alternative link</a>; <a href="https://arxiv.org/abs/math/0609775">arXiv preprint</a>, arXiv:math/0609775 [math.NT], 2006-2010.
%F Equals log(4/Pi)/4 - Pi/12 + log(Gamma(3/4)).
%F From _Jean-François Alcover_, Mar 02 2015: (Start)
%F This is the case k=1, m=2 of the Plouffe sum S(k,m) = Sum_{n >= 1} 1/(n^k*(exp(m*Pi*n)-1)).
%F Pi = 72*S(1,1) - 96*S(1,2) + 24*S(1,4). (End)
%F Equals Sum_{k>=1} sigma(k)/(k*exp(2*Pi*k)). - _Amiram Eldar_, Jun 05 2023
%e 0.00187268244976854611563857947996139886916289565261...
%t digits = 104; S[1, 2] = NSum[1/(n*(Exp[2*Pi*n] - 1)), {n, 1, Infinity}, WorkingPrecision -> digits+10, NSumTerms -> digits]; RealDigits[S[1, 2], 10, digits] // First (* _Jean-François Alcover_, Mar 02 2015 *)
%t Join[{0,0},RealDigits[Log[4/Pi]/4 - Pi/12 + Log[Gamma[3/4]], 10, 100][[1]]] (* _Amiram Eldar_, May 21 2022 *)
%o (PARI) 1/4*log(4/Pi)-Pi/12+log(gamma(3/4))
%Y Cf. A000203, A003881, A068465, A094640.
%Y Cf. A255695 (S(1,1)), A255697 (S(1,4)), A255698 (S(3,1)), A255699 (S(3,2)), A255700 (S(3,4)), A255701 (S(5,1)), A255702 (S(5,2)), A255703 (S(5,4)).
%K cons,nonn,easy
%O 0,4
%A _Benoit Cloitre_, Jun 21 2003
|