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

1, 1, 9, 63, 919, 18919, 505639, 18602319, 877402487, 51212704151, 3688010412503, 321523601578079, 33283248550719793, 4050897039400696253, 574469890816237292037, 93943844587040615104177, 17565329004174205621822169, 3730161837629377369026433019

Offset: 0

Author

Ilya Gutkovskiy, Mar 04 2021

Keywords

• nonn

Crossrefs

Cf. A040027, A061684, A336195, A342196, A342198, A342199.

Programs

Mathematica

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