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

1, 1, 1, 6, 76, 1447, 37206, 1212194, 47975271, 2238595055, 120453255172, 7347494056729, 501273291296174, 37833413358907566, 3130557361463956074, 281854137496597897755, 27433898122963009937892, 2870816347095046227070383, 321430790732030793454519088

Offset

0,4

Links

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

Mathematica

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

Prog

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

Crossrefs

Main diagonal of A336708.

Cf. A336578, A335871, A336712, A336714.

Sequence in context: A116874 A030044 A145165 * A218303 A132613 A009763

Adjacent sequences: A336710 A336711 A336712 * A336714 A336715 A336716

Keyword

nonn

Author

Seiichi Manyama, Aug 01 2020

Status

approved