|
%I #12 Oct 30 2021 11:36:40
%S 3,1,1,8,2,1,1,3,1,8,6,4,3,2,6,9,8,3,2,3,8,3,2,1,3,7,7,7,7,7,0,6,5,0,
%T 6,9,0,7,0,6,9,2,4,3,5,5,4,1,1,6,4,3,2,5,5,4,3,9,8,2,0,0,8,9,9,6,8,3,
%U 0,6,6,0,0,8,8,1,8,0,1,8,4,5,9,7,3,8,0,6,9,4,6,8,7,5,3,0,9,4,4,8,8,1,7,8,1
%N Decimal expansion of Integral_{x=0..oo} x*exp(-x)/(exp(x)+exp(-x)-1) dx.
%e 0.3118211318643269832...
%t RealDigits[Integrate[x*Exp[-x]/(Exp[x] + Exp[-x] - 1), {x, 0, Infinity}], 10, 105][[1]] (* _Amiram Eldar_, Oct 30 2021 *)
%o (SageMath)
%o RealField(45)(numerical_integral(x*exp(-x)/(exp(x)+exp(-x)-1), 0, +Infinity)[0])
%Y Cf. A001620.
%K nonn,cons
%O 0,1
%A _Dumitru Damian_, Oct 30 2021
|
