|
EXAMPLE
|
{{1,1,1,1,0},{1,1,1,0,1},{1,1,1,1,1},{1,0,1,1,0},{0,1,1,0,0}} qualifies since its inverse is
{{1,1,-1,0,-1},{1,0,0,-1,0},{-1,0,0,1,1},{0,-1,1,0,0},{-1,0,1,0,0}}
|
|
MATHEMATICA
|
triamat[li_List] := (*see A086900*); Table[it=triamat/@IntegerDigits[Range[0, -1+2^(n(n+1)/2)], 2, n(n+1)/2]; Count[it, (q_?MatrixQ)/; Det[q]=!=0 && Union[Flatten[{Inverse[q], {-1, 0, 1}}]]==={-1, 0, 1}], {n, 5}]
|
