OFFSET
1,2
COMMENTS
The maximum value always occurs on the diagonal. These numbers are close to n/sqrt(2).
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[im = Inverse[HilbertMatrix[n]]; pos = Position[im, Max[Abs[Flatten[im]]]]; If[Length[pos] > 1, Print[{n, pos}]; 0, pos[[1, 1]]], {n, 70}]
Table[t = Table[(2*i-1) Binomial[n+i-1, n-i]^2 * Binomial[2*i-2, i-1]^2, {i, n}]; Position[t, Max[t]][[1, 1]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 28 2012
STATUS
approved