A137296 - OEIS

%I #5 Dec 09 2016 05:58:37

%S 1,0,-1,-1,-2,1,-1,-1,7,-1,1,10,6,-26,1,1,45,-36,-224,127,-1,-1,-306,

%T -957,1172,3709,-746,1,-1,-2357,-14379,37397,67621,-106887,5167,-1,1,

%U 20690,803492,1325962,-4532586,-6300786,4147412,-41066,1,1,201733,49001186,51278654,-546386064,-208428708,1389178142

%N Antidiagonal triangular matrices of factorials as the example: M(3)={{0, 0, 1}, {0, 1, 2}, {1, 2, 6}}; the matrices are used to get characteristic polynomials and the triangular sequence is the coefficients of those characteristic polynomials.

%C This set of matrices was inspired by the Cornelius-Schultz triangular n! matrices and the Steinbach like ones antidiagonal matrix:

%C The row sums are {1, -1, -2, 4, -8, -88, 2872, -13440, -4576880, 511742560, 19591271488}.

%F M(n)->If greater than or equal to the middle antidiagonal, the antidiagonals are counted n->n!. Main antidiagonal is 1; second antidiagonal is 2!=1; third antidiagonal is 3!=6, etc.

%e {1},

%e {0, -1},

%e {-1, -2, 1},

%e {-1, -1, 7, -1},

%e {1, 10, 6, -26, 1},

%e {1, 45, -36, -224, 127, -1},

%e {-1, -306, -957, 1172, 3709, -746, 1},

%e {-1, -2357, -14379, 37397, 67621, -106887,5167, -1},

%e {1, 20690,803492, 1325962, -4532586, -6300786, 4147412, -41066, 1},

%e {1, 201733, 49001186, 51278654, -546386064, -208428708, 1389178142, -223470430, 368047, -1},

%e {-1, -2159026, -4071243531, -42916351880, -16447372250, 291803389596, 168497207674, -392959445624, 15690916395, -3669866, 1}

%t T[d_] := Table[Table[If[n == m && n == 1, 0, If[n == m && (n + m) > d, ((m + n) - d)!, If[Abs[n - m] >= 0 && (n + m) > d, ((m + n) - d)!, 0]]], {n, 1, d}], {m, 1, d}]; a = Join[{{1}}, Table[CoefficientList[CharacteristicPolynomial[T[d], x], x], \ {d, 1, 10}]]; Flatten[a]

%K uned,sign

%O 1,5

%A _Roger L. Bagula_, Mar 15 2008