login
Decimal expansion of area bounded by x->Exp[x] and x->Gamma[x+1] on 0 <= x <= c, where c is the value given by A078335.
0

%I #6 Nov 09 2013 03:43:43

%S 7,4,9,0,3,1,4,2,2,5,8,2,7,6,0,5,8,3,0,2,6,3,3,0,4,7,5,9,1,3,6,8,9,8,

%T 4,6,5,3,7,1,1,3,1,0,2,1,3,1,1,6,0,1,0,6,1,0,9,1,6,4,9,3,4,3,6,1,3,3,

%U 0,2,6,8,4,1,6,2,3,8,1,2,3,2,7,8,0,3,1,6,6,0,4,4,6,9,8,6,5,9,2,5,0,8,4,7,3,4

%N Decimal expansion of area bounded by x->Exp[x] and x->Gamma[x+1] on 0 <= x <= c, where c is the value given by A078335.

%e 74.9031422582760583026330475914...

%t RealDigits[NIntegrate[Exp[x] - Gamma[x + 1], {x, 0, FindRoot[r - Log[r! ], {r, 5.29}, WorkingPrecision -> 200][[1]][[2]]}, WorkingPrecision -> 40]]

%Y Cf. Upper bound of integral is given by A078335.

%K cons,nonn

%O 2,1

%A Joseph Biberstine (jrbibers(AT)indiana.edu), Jul 30 2006

%E More terms from _Robert G. Wilson v_, Nov 08 2013