OFFSET
1,1
COMMENTS
Row sums are:(2*(n + 3)!)/4!:
{2, 10, 60, 420, 3360, 30240, 302400, 3326400, 39916800, 518918400,...}
FORMULA
A(n,k)= A(n - 1, k - 1) + A(n - 1, k) + (n + 1)*(n + 2)*A(n - 2, k - 1).
EXAMPLE
{2},
{5, 5},
{1, 58, 1},
{1, 209, 209, 1},
{1, 252, 2854, 252, 1},
{1, 309, 14810, 14810, 309, 1},
{1, 382, 33263, 235108, 33263, 382, 1},
{1, 473, 61455, 1601271, 1601271, 61455, 473, 1},
{1, 584, 103948, 5321656, 29064422, 5321656, 103948, 584, 1},
{1, 717, 166968, 13537664, 245753850, 245753850, 13537664, 166968, 717, 1}
MATHEMATICA
Clear[A]; A[1, 1] = 2*4!/4!; A[2, 1] := A[2, 2] = (5)!/4!;
A[3, 2] = ( 2*(6)! - 2*4!)/4!; A[4, 2] = A[4, 3] = ( (7)! - 4!)/4!;
A[n_, 1] := 1; A[n_, n_] := 1;
A[n_, k_] := A[n - 1, k - 1] + A[n - 1, k] + (n + 1)*(n + 2)*A[n - 2, k - 1];
a = Table[A[n, k], {n, 10}, {k, n}]; Flatten[a]
Table[Apply[Plus, a[[n]]], {n, 1, 10}];
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, Dec 31 2008
STATUS
approved