A119824 - OEIS

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

(list; constant; graph; refs; listen; history; text; internal format)

OFFSET

2,1

LINKS

Table of n, a(n) for n=2..107.

EXAMPLE

74.9031422582760583026330475914...

MATHEMATICA

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

CROSSREFS

Cf. Upper bound of integral is given by A078335.

Sequence in context: A092034 A153042 A330595 * A271173 A242909 A259147

Adjacent sequences: A119821 A119822 A119823 * A119825 A119826 A119827

KEYWORD

cons,nonn

AUTHOR

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

EXTENSIONS

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

STATUS

approved