A051781 Denominators of Taylor series expansion of (exp(1-exp(x))-1)/(1-exp(x)).

1, 2, 12, 24, 45, 1440, 6048, 24192, 3628800, 3628800, 598752, 7096320, 435891456000, 326918592000, 713276928000, 1793381990400, 2667655710720000, 64023737057280000, 25545471085854720000, 51090942171709440000, 16860010916664115200000

Offset

0,2

Links

Table of n, a(n) for n=0..20.

Example

1-1/2*x-1/12*x^2+1/24*x^3+1/45*x^4+1/1440*x^5-17/6048*x^6-25/24192*x^7+...

Mathematica

Denominator[CoefficientList[Series[(Exp[1-Exp[x]]-1)/(1-Exp[x]), {x, 0, 20}], x]] (* Harvey P. Dale, Jul 17 2014 *)

Crossrefs

Cf. A051780.

Sequence in context: A141758 A137496 A195015 * A077562 A307003 A146567

Adjacent sequences: A051778 A051779 A051780 * A051782 A051783 A051784

Keyword

nonn,easy,frac

Author

N. J. A. Sloane, Dec 09 1999

Status

approved