OFFSET
1,2
COMMENTS
See A064767 for the number of invertible matrices.
MATHEMATICA
Table[cnt=0; Do[m={{a, b, c}, {d, e, f}, {g, h, i}}; If[Det[m, Modulus->n]>0, cnt++ ], {a, 0, n-1}, {b, 0, n-1}, {c, 0, n-1}, {d, 0, n-1}, {e, 0, n-1}, {f, 0, n-1}, {g, 0, n-1}, {h, 0, n-1}, {i, 0, n-1}]; cnt, {n, 2, 7}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jan 16 2006
STATUS
approved