A336714 a(0) = 1 and a(n) = (1/n) * Sum_{k=1..n} (-2)^(n-k) * binomial(n,k) * binomial(n+(n-1)*k,k-1) for n > 0.

1, 1, 0, 2, 36, 766, 20910, 707472, 28740656, 1367040950, 74645106114, 4606416653654, 317237242964840, 24130334401571972, 2009783477119978508, 181958565624827141256, 17796032244661580019904, 1870078875109869688744870, 210155525478346375059816234, 25151873422906866362758095642

Offset

0,4

Links

Seiichi Manyama, Table of n, a(n) for n = 0..339

Mathematica

a[0] = 1; a[n_] := Sum[(-2)^(n - k) * Binomial[n, k] * Binomial[n + (n - 1)*k, k - 1], {k, 1, n}] / n; Array[a, 20, 0] (* Amiram Eldar, Aug 01 2020 *)

Prog

(PARI) {a(n) = if(n==0, 1, sum(k=1, n, (-2)^(n-k)*binomial(n, k)*binomial(n+(n-1)*k, k-1))/n)}

Crossrefs

Main diagonal of A336709.

Cf. A336578, A335871, A336712, A336713.

Sequence in context: A262973 A207832 A112036 * A093530 A001626 A166473

Adjacent sequences: A336711 A336712 A336713 * A336715 A336716 A336717

Keyword

nonn

Author

Seiichi Manyama, Aug 01 2020

Status

approved