login
A091470
Number of n X n matrices with entries {-1,0,1} that are diagonalizable over the complex numbers.
3
3, 65, 15627, 36625153
OFFSET
1,1
COMMENTS
See A091472 for definition of diagonalizable and for Mathematica definitions.
MATHEMATICA
Table[Count[Matrices[n, {-1, 0, 1}], _?DiagonalizableQ], {n, 4}]
PROG
(Sage)
import itertools
def a(n):
ans, W = 0, itertools.product([-1, 0, 1], repeat=n*n)
for w in W:
if Matrix(QQbar, n, n, w).is_diagonalizable(): ans += 1
return ans # Robin Visser, Sep 24 2023
CROSSREFS
Sequence in context: A295169 A065400 A306410 * A374226 A028567 A003359
KEYWORD
nonn,more
AUTHOR
Eric W. Weisstein, Jan 12 2004
EXTENSIONS
a(4) from Robin Visser, Sep 24 2023
STATUS
approved