OFFSET
0,1
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
Equals integral_{x=0..1} (li(1+x) - gamma - log(x))/x dx, where li(x) is the integral logarithm.
EXAMPLE
0.4826442216204626123794283911485757739701203962756656...
MAPLE
evalf(int((Li(1+x)-gamma-ln(x))/x, x = 0..1), 120);
MATHEMATICA
RealDigits[N[Integrate[(LogIntegral[1+x]-EulerGamma-Log[x])/x, {x, 0, 1}], 150]][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Iaroslav V. Blagouchine, Mar 24 2016
EXTENSIONS
Mathematica program corrected by Harvey P. Dale, Jul 05 2022
STATUS
approved