A210356 Maximum modulus in the inverse of Hilbert's matrix.

1, 12, 192, 6480, 179200, 4410000, 133402500, 4249941696, 122367445200, 3480673996800, 117643011932160, 3659449159080000, 106518477825760000, 3521767173114190000, 114708987924290760000, 3525270042097046880000, 110552468520163390156800

Offset

1,2

Comments

This sequence corrects A061065, which was wrong for n > 6. These values appear at the A210357(n) position on the diagonal. Thanks to Clark Kimberling for verifying this sequence.

Links

T. D. Noe, Table of n, a(n) for n = 1..100

Mathematica

Table[im = Inverse[HilbertMatrix[n]]; Max[Abs[Flatten[im]]]], {n, 20}]

Prog

(PARI) for(n=1, 17, my(h=1/mathilbert(n), s=0); for(j=1, n, for(k=1, n, s=max(s, h[j, k]))); print1(s, ", ")) \\ Hugo Pfoertner, Feb 11 2020

Crossrefs

Cf. A061065, A189765 (inverse matrix), A210357, A210358 (minimum).

Sequence in context: A272959 A095351 A061065 * A328261 A264603 A296841

Adjacent sequences: A210353 A210354 A210355 * A210357 A210358 A210359

Keyword

nonn

Author

T. D. Noe, Mar 28 2012

Status

approved