A086569 Product of the nonzero eigenvalues of the circulant matrix whose rows are formed by successively rotating a vector of binomial coefficients right. Generalization of A048954.
1, -3, 28, -375, 3751, -49392, 6835648, -1343091375, 364668913756, -210736858987743, 101832157445630503, -67043511427995648000, 487627751563388801409591, -4875797582053878382039400448, 58623274842128064372315087290368
Offset: 1
Examples
a(6) = -49392 because -1, -28, -28 and 63 are the four nonzero eigenvalues of the matrix {{1,6,15,20,15,6}, {6,1,6,15,20,15}, {15,6,1,6,15,20}, {20,15,6,1,6,15}, {15,20,15,6,1,6}, {6,15,20,15,6,1}}.
References
- For references, see A086459
Programs
-
Mathematica
Table[x=Binomial[n, Range[0, n-1]]; m=Table[RotateRight[x, i-1], {i, n}]; e=Eigenvalues[m]; prod=1; Do[If[e[[i]]!=0, prod=prod*e[[i]]], {i, n}]; FullSimplify[prod], {n, 15}]
Comments