A393220 Row 4 of A372254.

6902, 76110, 822954, 8724078, 90768378, 928340190, 9349638474, 92885168718, 911723349018, 8854871350590, 85206548473194, 813275908848558, 7707582917100858, 72593798062104990, 680014644249413514, 6339684115009571598, 58857662097287159898, 544436244277450683390

Offset

0,1

Links

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

Formula

a(n) ~ 8! * 9^n.

Mathematica

g[n_] := g[n] = If[n == 0, 1, Sum[Expand[x*g[n-j]]*Binomial[n-1, j-1], {j, 1, n}]]; A[n_, k_] := A[n, k] = Module[{q, l, b}, {q, l} = {-1, {n, n, k}}; b[n0_, j_] := b[n0, j] = If[j == 1, Product[q-i, {i, 0, n0-1}]*(q-n0)^l[[1]], Sum[b[n0 + m, j-1]*Coefficient[g[l[[j]]], x, m], {m, 0, l[[j]]}]]; Abs[b[0, 3]]]; Table[A[4, n], {n, 0, 20}] (* after Jean-François Alcover *)

Crossrefs

Cf. A372254.

Sequence in context: A233245 A233223 A106768 * A156419 A268908 A192077

Adjacent sequences: A393217 A393218 A393219 * A393221 A393222 A393223

Keyword

nonn

Author

Vaclav Kotesovec, Feb 06 2026

Status

approved