A301923 Expansion of e.g.f. 1/(1 + (exp(x) - 1)/(1 + (exp(x) - 1)^2/(1 + (exp(x) - 1)^3/(1 + ...)))), a continued fraction.

1, -1, 1, 5, -11, -91, -419, -1555, 35029, 708629, 8413261, 79666685, -294564731, -38505298651, -1052947792259, -18923930396275, -206463542201291, 1794180062198069, 205343758433071021, 8230374933815425565, 237203632846737093349, 4859533645922850398789, 34618271271121471451101

Offset

0,4

Links

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

N. J. A. Sloane, Transforms

Eric Weisstein's World of Mathematics, Rogers-Ramanujan Continued Fraction

Formula

a(n) = Sum_{k=0..n} Stirling2(n,k)*A007325(k)*k!.

Example

E.g.f.: A(x) = 1 - x + x^2/2! + 5*x^3/3! - 11*x^4/4! - 91*x^5/5! - 419*x^6/6! - 1555*x^7/7! + ...

Mathematica

nmax = 22; CoefficientList[Series[1/(1 + ContinuedFractionK[(Exp[x] - 1)^k, 1, {k, 1, nmax}]), {x, 0, nmax}], x] Range[0, nmax]!
b[n_] := b[n] = SeriesCoefficient[QPochhammer[x, x^5] QPochhammer[x^4, x^5]/(QPochhammer[x^2, x^5] QPochhammer[x^3, x^5]), {x, 0, n}]; a[n_] := a[n] = Sum[StirlingS2[n, k] b[k] k!, {k, 0, n}]; Table[a[n], {n, 0, 22}]

Crossrefs

Cf. A007325, A019538, A301921.

Sequence in context: A128454 A368013 A188514 * A353890 A120778 A042761

Adjacent sequences: A301920 A301921 A301922 * A301924 A301925 A301926

Keyword

sign

Author

Ilya Gutkovskiy, Jun 19 2018

Status

approved