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,2

Links

Table of n, a(n) for n=1..41.

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}]

Crossrefs

Sequence in context: A146428 A146235 A087728 * A212968 A127744 A122734

Adjacent sequences: A072329 A072330 A072331 * A072333 A072334 A072335

Keyword

nonn

Author

Robert G. Wilson v, Jul 15 2002

Status

approved