|
%I #9 Feb 18 2024 09:05:32
%S 1,1,-1,-1,-2,1,1,0,3,-1,-1,0,2,-4,1,1,0,0,-5,5,-1,-1,0,0,-2,9,-6,1,1,
%T 0,0,0,7,-14,7,-1,-1,0,0,0,2,-16,20,-8,1,1,0,0,0,0,-9,30,-27,9,-1,-1,
%U 0,0,0,0,-2,25,-50,35,-10,1
%N Triangle: h(n,m)=If[m == 1, n, If[n - m + 1 == 0, 1, If[n - m == 0, 1, If[n - m > 0, 1, 0]]]],n,m<=d.
%e {1},
%e {1, -1},
%e {-1, -2, 1},
%e {1, 0, 3, -1},
%e {-1, 0, 2, -4, 1},
%e {1, 0, 0, -5, 5, -1},
%e {-1, 0, 0, -2, 9, -6, 1},
%e {1, 0, 0, 0, 7, -14, 7, -1},
%e {-1,0, 0, 0, 2, -16, 20, -8, 1},
%e {1, 0, 0, 0, 0, -9, 30, -27,9, -1},
%e {-1, 0, 0, 0, 0, -2, 25, -50, 35, -10, 1}
%t f[n_, m_] := If[m == 1, n,If[n - m + 1 == 0, 1, If[n - m == 0, 1, If[n - m > 0, 1, 0]]]];
%t M[d_] := Table[Table[f[n, m], {n, 1, d}], {m, 1, d}];
%t a = Join[{{1}}, Table[CoefficientList[CharacteristicPolynomial[M[n], x], x], {n, 1, 10}]];
%t Flatten[a]
%K uned,tabl,sign,less
%O 1,5
%A _Roger L. Bagula_, Mar 20 2008
|
