A355114 - OEIS

A355114

Expansion of e.g.f. 6 / (7 - 6*x - exp(6*x)).

1, 2, 14, 156, 2256, 40416, 869040, 21817440, 626063616, 20210176512, 724888631808, 28599923045376, 1230970377166848, 57397448756994048, 2882187551571941376, 155065468075097960448, 8898907099302329647104, 542609247778976191610880, 35031706496702707368591360

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

OFFSET

0,2

LINKS

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

FORMULA

a(0) = 1; a(n) = n * a(n-1) + Sum_{k=1..n} binomial(n,k) * 6^(k-1) * a(n-k).

a(n) ~ n! / ((1 + LambertW(exp(7))) * ((7 - LambertW(exp(7)))/6)^(n+1)). - Vaclav Kotesovec, Jun 19 2022

MATHEMATICA

nmax = 18; CoefficientList[Series[6/(7 - 6 x - Exp[6 x]), {x, 0, nmax}], x] Range[0, nmax]!

a[0] = 1; a[n_] := a[n] = n a[n - 1] + Sum[Binomial[n, k] 6^(k - 1) a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 18}]

CROSSREFS