editing
approved
editing
approved
W. Lang, <a href="/LANGCHANGE/A049353/a049353.texttxt">First ten rows. </a>
approved
editing
W. Lang, <a href="http://www.itp.kit.edu/~wl/EISpubLANGCHANGE
proposed
approved
editing
proposed
a(n,k) = (n!*sum(j=1..k, (-1)^(k-j)*binomial(k,j)*binomial(n+4*j-1,4*j-1)))/(4^k*k!). - Vladimir Kruchinin, Apr 01 2011
proposed
editing
editing
proposed
(Maxima) a(n, k):=(n!*sum((-1)^(k-j)*binomial(k, j)*binomial(n+4*j-1, 4*j-1), j, 1, k))/(4^k*k!); [From _/* _Vladimir Kruchinin_, Apr 01 2011] */
approved
editing
editing
approved
a[n_, m_] /; n >= m >= 1 := a[n, m] = (4m + n - 1)*a[n-1, m] + a[n-1, m-1]; a[n_, m_] /; n < m = 0; a[_, 0] = 0; a[1, 1] = 1; Flatten[Table[a[n, m], {n, 1, 9}, {m, 1, n}]] (* From __Jean-François Alcover_, Jul 22 2011 *)
reviewed
editing