login
A210356
Maximum modulus in the inverse of Hilbert's matrix.
5
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.
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 28 2012
STATUS
approved