OFFSET
0,5
COMMENTS
Row sums are:
{1, 2, 10, 119, 2515, 82072, 3831780, 242722653, 20048112901, 2093775709630,...}.
This sequence resulted from reading the book Combinatorial Identities by John Riordan.
REFERENCES
Review: John Riordan, Combinatorial identities,Paul R. Stein,Bull. Amer. Math. Soc. Volume 78, Number 4 (1972), 490-496.
FORMULA
A(n,k)=k^2*(A(n - 1, k - 1) + A(n - 1, k)).
EXAMPLE
{1},
{1, 1},
{1, 8, 1},
{1, 36, 81, 1},
{1, 148, 1053, 1312, 1},
{1, 596, 10809, 37840, 32825, 1},
{1, 2388, 102645, 778384, 1766625, 1181736, 1},
{1, 9556, 945297, 14096464, 63625225, 106140996, 57905113, 1},
{1, 38228, 8593677, 240668176, 1943042225, 6111583956, 8038259341, 3705927296, 1},
{1, 152916, 77687145, 3988189648, 54592760025, 289966542516, 693342321553, 751627944768, 300180111057, 1}
MATHEMATICA
A[n_, 1] := 1; A[n_, n_] := 1;
A[n_, k_] := k^2*(A[n - 1, k - 1] + A[n - 1, k]);
TableForm[Table[A[n, k], {n, 10}, {k, n}], TableAlignments -> Right];
Table[Table[A[n, k], {k, n}], {n, 10}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Feb 04 2009
STATUS
approved