A072332 Largest eigenvalue, rounded to the nearest integer, of a rank n matrix of 1..n^2 filled successively along antidiagonals (A069480).

1, 5, 17, 38, 73, 126, 199, 296, 420, 576, 765, 992, 1261, 1574, 1935, 2348, 2815, 3341, 3928, 4581, 5302, 6096, 6964, 7912, 8942, 10058, 11262, 12560, 13954, 15447, 17042, 18745, 20557, 22482, 24524, 26686, 28971, 31383, 33926, 36602, 39416

Offset: 1

Author

Robert G. Wilson v, Jul 15 2002

Keywords

• nonn

Programs

Mathematica

f[n_] := Table[(i + j - 1)((i + j - 1) - 1)/2 + 1 + (j - 1) - Mod[i + j - 1, n, 1]^2 Quotient[i + j - 1, n, 1], {i, n}, {j, n}]; Table[ Sort[ Round[ Eigenvalues[ N[ f[n]]]]] [[ -1]], {n, 1, 45}]