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

Author

T. D. Noe, Mar 28 2012

Keywords

• nonn

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

Crossrefs

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

Programs

Mathematica

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

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