OFFSET
1,2
COMMENTS
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 28 2012
STATUS
approved