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,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
STATUS
approved