A346947 E.g.f.: log( 1 + log(1 + x)^5 / 5! ).

1, -15, 175, -1960, 22449, -269451, 3423860, -46238280, 664233856, -10143487354, 164423204582, -2823783679080, 51273355515264, -982236541934430, 19809898439192946, -419752648063849626, 9325875631405818996, -216846992855331506052, 5267598064689049209252

Offset

5,2

Links

Table of n, a(n) for n=5..23.

Formula

a(n) = Stirling1(n,5) - (1/n) * Sum_{k=1..n-1} binomial(n,k) * Stirling1(n-k,5) * k * a(k).

Mathematica

nmax = 23; CoefficientList[Series[Log[1 + Log[1 + x]^5/5!], {x, 0, nmax}], x] Range[0, nmax]! // Drop[#, 5] &
a[n_] := a[n] = StirlingS1[n, 5] - (1/n) Sum[Binomial[n, k] StirlingS1[n - k, 5] k a[k], {k, 1, n - 1}]; Table[a[n], {n, 5, 23}]

Crossrefs

Cf. A000482, A003713, A346944, A346945, A346946.

Sequence in context: A354137 A000482 A347004 * A346924 A145147 A069379

Adjacent sequences: A346944 A346945 A346946 * A346948 A346949 A346950

Keyword

sign

Author

Ilya Gutkovskiy, Aug 08 2021

Status

approved