login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A136450 Matrix based on counter variant Hankel matrix: (smaller at central antidiagonal) h(i,j) = If[i + j - 1 > n, 0, n + 1 - (i + j - 1) Characteristic polynomials as a triangle of coefficients. 0

%I #5 Dec 09 2016 05:57:36

%S 1,1,-1,-1,-2,1,-1,2,4,-1,1,2,-7,-6,1,1,-2,-10,12,9,-1,-1,-2,13,18,

%T -26,-12,1,-1,2,16,-24,-52,40,16,-1,1,2,-19,-30,87,86,-70,-20,1,1,-2,

%U -22,36,131,-150,-190,100,25,-1,-1,-2,25,42,-184,-232,403,294,-155,-30,1

%N Matrix based on counter variant Hankel matrix: (smaller at central antidiagonal) h(i,j) = If[i + j - 1 > n, 0, n + 1 - (i + j - 1) Characteristic polynomials as a triangle of coefficients.

%C These polynomials grow slower than their Hankel counterparts.

%C Row sums are {1, 0, -2, 4, -9, 9, -9, -4, 38, -72, 161}.

%F h(i,j)=If[i + j - 1 > n, 0, n + 1 - (i + j - 1): i,j<=n.

%e {1},

%e {1, -1},

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

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

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

%e {1, -2, -10,12, 9, -1},

%e {-1, -2, 13, 18, -26, -12, 1},

%e {-1, 2, 16, -24, -52, 40, 16, -1},

%e {1, 2, -19, -30, 87, 86, -70, -20, 1},

%e {1, -2, -22, 36,131, -150, -190, 100, 25, -1},

%e {-1, -2, 25, 42, -184, -232,403, 294, -155, -30, 1}

%t H[n_] := Table[Table[If[i + j - 1 > n, 0, n + 1 - (i + j - 1)], {i, 1, n}], {j, 1, n}]; a = Join[{{1}}, Table[CoefficientList[CharacteristicPolynomial[H[n], x], x], {n, 1, 10}]]; Flatten[a]

%K uned,tabl,sign

%O 1,5

%A _Roger L. Bagula_, Mar 19 2008

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 05:02 EDT 2024. Contains 371235 sequences. (Running on oeis4.)