[go: up one dir, main page]

login
A086899
Number of real n X n invertible symmetric (0,1) matrices.
5
1, 4, 32, 528, 18596, 1280468, 180452552
OFFSET
1,2
EXAMPLE
For n = 2 the 4 matrices are 10/01, 01/10, 11/10, 01/11.
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)], {n, 5}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Wouter Meeussen Aug 23, 2003.
EXTENSIONS
a(6) and a(7) from Giovanni Resta, May 08 2006
STATUS
approved