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

Links

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

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

Crossrefs

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

Sequence in context: A165510 A165749 A251211 * A302975 A165447 A050792

Adjacent sequences: A342194 A342195 A342196 * A342198 A342199 A342200

Keyword

nonn

Author

Ilya Gutkovskiy, Mar 04 2021

Status

approved