OFFSET
0,2
COMMENTS
Row sums are:
{1, 6, 16, 36, 92, 336, 1768, 11812, 92356, 817896, 8075024,...}.
The middle numbers are t(n,Floor[n/2]): {1, 3, 4, 6, 6, 8, 4, 9, -6, 36, 8,...}
EXAMPLE
{1},
{3, 3},
{6, 4, 6},
{12, 6, 6, 12},
{32, 11, 6, 11, 32},
{130, 30, 8, 8, 30, 130},
{732, 127, 23, 4, 23, 127, 732},
{5054, 728, 115, 9, 9, 115, 728, 5054},
{40336, 5049, 710, 86, -6, 86, 710, 5049, 40336},
{362898, 40330, 5024, 660, 36, 36, 660, 5024, 40330, 362898},
{3628820, 362891, 40297, 4946, 554, 8, 554, 4946, 40297, 362891, 3628820}
MATHEMATICA
Table[Table[ (2 n - Binomial[n, m] + m! + (-m + n)!), {m, 0, n}], {n, 0, 10}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Jan 21 2009
STATUS
approved