A119824 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.

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, 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, 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

Offset: 2

Author

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

Keywords

• cons
• nonn

Examples

			74.9031422582760583026330475914...
		

Crossrefs

Cf. Upper bound of integral is given by A078335.

Programs

Mathematica

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

Extensions

More terms from Robert G. Wilson v, Nov 08 2013