login
A086264
Number of real {0,1} n X n matrices having determinant=1.
4
1, 1, 3, 84, 10020, 4851360, 9240051240, 67745781734400, 1883481284085791040, 196623212252486487552000
OFFSET
0,3
LINKS
Hugo Pfoertner, Determinants of (0,1)-matrices. FORTRAN program.
Minfeng Wang, C++ program
Eric Weisstein's World of Mathematics, (0,1)-Matrix.
MATHEMATICA
a[n_] := Module[{M, iter, cnt = 0}, M = Table[a[i, j], {i, 1, n}, {j, 1, n}]; iter = Thread[{Flatten[M], 0, 1}]; Do[If[Det[M] == 1, cnt++], Evaluate[Sequence @@ iter]]; cnt];
Do[Print[n, " ", a[n]], {n, 1, 4}] (* Jean-François Alcover, Dec 09 2018 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Hugo Pfoertner, Oct 05 2003
EXTENSIONS
a(0)=1 prepended by Alois P. Heinz, Jun 18 2022
a(7) from Minfeng Wang, Feb 09 2023
a(8) from Minfeng Wang, Apr 26 2024
a(9) from Dominik Beck, Jul 02 2026
STATUS
approved