OFFSET
0,2
REFERENCES
Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 5.4.2 Random Mapping Statistics, p. 289.
FORMULA
EXAMPLE
0.037007216582290303209923789448919330070073980621328473638505730597...
MATHEMATICA
digits = 105; h1 = (8/3)*NIntegrate[(1 - Exp[ExpIntegralEi[-x]/2])*x, {x, 0, Infinity}, WorkingPrecision -> digits + 10]; h2 = 4*NIntegrate[1 - Exp[ExpIntegralEi[-x]/2], {x, 0, Infinity}, WorkingPrecision -> digits + 10]^2 ; Join[{0}, RealDigits[h1 - h2, 10, digits] // First]
CROSSREFS
KEYWORD
AUTHOR
Jean-François Alcover, Sep 04 2015
STATUS
approved