OFFSET
0,1
EXAMPLE
0.272343587707596764784070676923955578748225108064395871645389620412837597...
MAPLE
evalf(Sum((-1)^k*(harmonic(2^k) - k*log(2) - gamma), k=0..infinity), 120); # Vaclav Kotesovec, Apr 30 2019
MATHEMATICA
digits = 104; s = NSum[(-1)^k*(HarmonicNumber[2^k] - k*Log[2] - EulerGamma), {k, 0, Infinity}, Method -> "AlternatingSigns", WorkingPrecision -> digits+10]; RealDigits[s, 10, digits][[1]] (* Jean-François Alcover, Apr 28 2019 *)
PROG
(PARI) default(realprecision, 120); sumalt(k=0, (-1)^k*(psi(2^k+1) - k*log(2))) \\ Vaclav Kotesovec, Apr 30 2019
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Luis H. Gallardo, Apr 20 2019
STATUS
approved