|
|
A076823
|
|
Array of coefficients of 1/det(M_n)*P(M_n) where P(M_n) is the characteristic polynomial of M_n, the n-th n X n Hilbert matrix M_n(i,j)=1/(i+j-1).
|
|
1
|
|
|
-1, 1, 1, -16, 12, -1, 381, -3312, 2160, 1, -10496, 1603680, -10137600, 6048000, -1, 307505, -1022881200, 92708406000, -476703360000, 266716800000, 1, -9316560, 750409713900, -1242627237734400, 78981336366912000, -349935855575040000, 186313420339200000, -1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
Montgomery made a conjecture related to the largest eigenvalue of the Hilbert matrix (cf. link)
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
f:= proc(n) uses LinearAlgebra; local P, M;
M:= HilbertMatrix(n);
P:= CharacteristicPolynomial(M, t)/Determinant(M);
seq(coeff(P, t, i), i=0..n)
end proc:
|
|
MATHEMATICA
|
row[n_] := Module[{P, M, x}, M = HilbertMatrix[n]; P = CharacteristicPolynomial[M, x]/Det[M]; (-1)^n CoefficientList[P, x]];
|
|
PROG
|
(PARI) vector(n+1, i, (polcoeff(charpoly(mathilbert(n))/matdet(mathilbert(n)), i-1) \\ for the "n-th row"
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|