A078665 Maximum absolute value of coefficients of characteristic polynomial of M_n, the n X n matrix m_(i,j) = i mod j.

1, 1, 2, 5, 47, 105, 1272, 8424, 55856, 388800, 6592492, 37965600, 1573051680, 10106845824, 145938179520, 2694653982720, 18948491739696, 267048208800000, 23293245955795200, 466687809894297600, 3372079713556377600

Offset

1,3

Links

Table of n, a(n) for n=1..21.

Example

Characteristic polynomial of M_4 is x^4 - 5*x^2 - 2*x^1 + 0*x^0.

Mathematica

a[n_] := Max@@Abs/@CoefficientList[CharacteristicPolynomial[Table[Mod[i, j], {i, n}, {j, n}], x], x]

Crossrefs

Cf. A078924.

Sequence in context: A326965 A023273 A041729 * A163666 A093552 A060808

Adjacent sequences: A078662 A078663 A078664 * A078666 A078667 A078668

Keyword

nonn

Author

Benoit Cloitre, Dec 15 2002

Status

approved