OFFSET
1,1
COMMENTS
See A091472 for definition of diagonalizable and for Mathematica definitions.
LINKS
Eric Weisstein's World of Mathematics, Diagonalizable Matrix
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
KEYWORD
nonn,more
AUTHOR
Eric W. Weisstein, Jan 12 2004
EXTENSIONS
a(4) from Robin Visser, Sep 24 2023
STATUS
approved