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,3

Links

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

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}]

Crossrefs

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

Sequence in context: A058796 A360256 A214144 * A002608 A010949 A161646

Adjacent sequences: A342196 A342197 A342198 * A342200 A342201 A342202

Keyword

nonn

Author

Ilya Gutkovskiy, Mar 04 2021

Status

approved