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

1, 1, 33, 519, 43111, 5068111, 840782023, 291086377719, 139698959369111, 90748115988081551, 90809507057803456103, 124011515918275951611959, 217278911997171247450862041, 509237348184229328050319432621, 1567286639251140454692258569881053

Offset: 0

Author

Ilya Gutkovskiy, Mar 04 2021

Keywords

• nonn

Crossrefs

Cf. A040027, A061686, A336197, A342196, A342197, A342198.

Programs

Mathematica

a[0] = 1; a[n_] := a[n] = Sum[Binomial[n, k]^5 a[k - 1], {k, 1, n}]; Table[a[n], {n, 0, 14}]