OFFSET
0,12
COMMENTS
Differs from 1 by 4.9*10^-11.
LINKS
Eric Weisstein's World of Mathematics, Almost Integer
EXAMPLE
1.00000000004885109041382...
MATHEMATICA
almostOne = Log[2]/4 + 2*Log[2]*NSum[1/(2^(-k/2) + 2^(k/2))^2, {k, 1, Infinity}, WorkingPrecision -> 110, NSumTerms -> 100]; RealDigits[almostOne, 10, 102] // First (* Jean-François Alcover, Feb 07 2013 *)
RealDigits[Re[2 - Log[2]/4 - 2*(QPolyGamma[1, -((I*Pi)/Log[2]), Sqrt[2]] + QPolyGamma[1, (I*Pi)/Log[2], Sqrt[2]])/Log[2]], 10, 100][[1]] (* Vaclav Kotesovec, Aug 17 2015 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Eric W. Weisstein, Dec 15 2005
STATUS
approved