|
%I #8 Jan 07 2021 07:31:21
%S 0,9,6,0,1,0,1,0,3,6,1,8,6,6,9,5,7,9,5,6,8,0,5,8,8,8,4,7,6,4,1,5,9,4,
%T 9,3,9,1,2,9,5,4,0,1,8,1,2,7,0,6,6,3,5,5,6,9,6,2,5,6,4,5,5,0,1,9,8,6,
%U 8,5,7,1,3,7,6,7,5,6,5,3,2,6,5,6,9,4,0,9,9,8,3,5,0,8,4,2,7,9,6,7,7,4,4,1,8,7
%N Decimal expansion of a constant related to A263137.
%F Integral_{x=0..infinity} exp(-x)/(x*(1 - exp(-4*x))^2) - 1/(16*x^3) - 3/(16*x^2) - 19/(96*x*exp(x)) dx.
%F A263176 + A263177 = log(Gamma(1/4))/2 - Zeta'(-1)/4 - 2*log(2)/3 - log(Pi)/4 = -0.062914043561495455491893116973161914641792581828767341125... . - _Vaclav Kotesovec_, Oct 12 2015
%e 0.0960101036186695795680588847641594939129540181270663556962564550198...
%t NIntegrate[E^(-x)/(1-E^(-4*x))^2/x - 1/(16*x^3) - 3/(16*x^2) - 19*E^(-x)/(96*x), {x, 0, Infinity}, WorkingPrecision -> 120, MaxRecursion -> 100, PrecisionGoal -> 110]
%Y Cf. A263137, A263176.
%K nonn,cons
%O 0,2
%A _Vaclav Kotesovec_, Oct 11 2015
|
