OFFSET
1,2
MATHEMATICA
f[n_] := Table[i + j*n, {j, 0, n - 1}, {i, 1, n}]; Table[ Round[ Sort[ N[ Eigenvalues[ f[n]]]]] [[ -1]], {n, 1, 45}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 15 2002
STATUS
approved
