STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
A[n_, k_] := Sum[If[k == 0, 1, Binomial[j+n-1, n]^k] Sum[(-1)^(i-j)* Binomial[i, j], {i, j, n k}], {j, 0, n k}];
Table[Table[A[n, d-n], {n, 0, d}], {d, 0, 10}] // Flatten (* Jean-François Alcover, Nov 04 2021 *)
approved
editing
editing
approved
editing
approved
A(n,k) = Sum_{j=0..n*k} binomial(j+n-1,n)^k * (Sum_{i=j..n*k} (-1)^(i-j) * binomial(i,j)). - Andrew Howroyd, Jan 23 2020
approved
editing
proposed
approved
editing
proposed