A337039 a(n) = exp(-1/3) * Sum_{k>=0} (3*k - 1)^n / (3^k * k!).

1, 0, 3, 9, 54, 351, 2673, 22842, 216513, 2248965, 25351704, 307699965, 3995419365, 55207193328, 808078734999, 12480510487509, 202697232446070, 3451417004044323, 61450890989472837, 1141331486235356178, 22066085726516137149, 443236553318792110113, 9233934519951699602400

Offset

0,3

Links

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

Formula

G.f. A(x) satisfies: A(x) = (1 - 3*x + x*A(x/(1 - 3*x))) / (1 - 2*x - 3*x^2).

G.f.: (1/(1 + x)) * Sum_{k>=0} (x/(1 + x))^k / Product_{j=1..k} (1 - 3*j*x/(1 + x)).

E.g.f.: exp((exp(3*x) - 1) / 3 - x).

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

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

a(n) ~ 3^(n - 1/3) * n^(n - 1/3) * exp(n/LambertW(3*n) - n - 1/3) / (sqrt(1 + LambertW(3*n)) * LambertW(3*n)^(n - 1/3)). - Vaclav Kotesovec, Jun 26 2022

Mathematica

nmax = 22; CoefficientList[Series[Exp[(Exp[3 x] - 1)/3 - x], {x, 0, nmax}], x] Range[0, nmax]!
a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k] 3^k a[n - k - 1], {k, 1, n - 1}]; Table[a[n], {n, 0, 22}]
Table[Sum[(-1)^(n - k) Binomial[n, k] 3^k BellB[k, 1/3], {k, 0, n}], {n, 0, 22}]

Crossrefs

Cf. A000296, A003575, A004212, A337038, A337040, A337041, A337042, A337043.

Sequence in context: A238906 A363442 A212418 * A025226 A001194 A032179

Adjacent sequences: A337036 A337037 A337038 * A337040 A337041 A337042

Keyword

nonn

Author

Ilya Gutkovskiy, Aug 12 2020

Status

approved