A155169 - OEIS

%I #2 Mar 30 2012 17:34:32

%S 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,

%T 23,127,732,5054,728,115,9,9,115,728,5054,40336,5049,710,86,-6,86,710,

%U 5049,40336,362898,40330,5024,660,36,36,660,5024,40330,362898,3628820,362891

%N Triangle sequence:t(n,m)=(2 n - Binomial[n, m] + m! + (-m + n)!).

%C Row sums are:

%C {1, 6, 16, 36, 92, 336, 1768, 11812, 92356, 817896, 8075024,...}.

%C The middle numbers are t(n,Floor[n/2]): {1, 3, 4, 6, 6, 8, 4, 9, -6, 36, 8,...}

%e {1},

%e {3, 3},

%e {6, 4, 6},

%e {12, 6, 6, 12},

%e {32, 11, 6, 11, 32},

%e {130, 30, 8, 8, 30, 130},

%e {732, 127, 23, 4, 23, 127, 732},

%e {5054, 728, 115, 9, 9, 115, 728, 5054},

%e {40336, 5049, 710, 86, -6, 86, 710, 5049, 40336},

%e {362898, 40330, 5024, 660, 36, 36, 660, 5024, 40330, 362898},

%e {3628820, 362891, 40297, 4946, 554, 8, 554, 4946, 40297, 362891, 3628820}

%t Table[Table[ (2 n - Binomial[n, m] + m! + (-m + n)!), {m, 0, n}], {n, 0, 10}];

%t Flatten[%]

%K sign,tabl,uned

%O 0,2

%A _Roger L. Bagula_, Jan 21 2009