|
%I #28 Feb 25 2023 09:38:50
%S 1,1,3,84,10020,4851360,9240051240,67745781734400
%N Number of real {0,1} n X n matrices having determinant=1.
%H Hugo Pfoertner, <a href="http://www.randomwalk.de/sequences/a086264.txt">Determinants of (0,1)-matrices.</a> FORTRAN program.
%H Minfeng Wang, <a href="/A086264/a086264.cpp.txt">C++ program</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/01-Matrix.html">(0,1)-Matrix</a>.
%H <a href="/index/Mat#binmat">Index entries for sequences related to binary matrices</a>
%t 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];
%t Do[Print[n, " ", a[n]], {n, 1, 4}] (* _Jean-François Alcover_, Dec 09 2018 *)
%Y Cf. A003024, A003432, A051752, A055165.
%Y Cf. A046747.
%K nonn,more
%O 0,3
%A _Hugo Pfoertner_, Oct 05 2003
%E a(0)=1 prepended by _Alois P. Heinz_, Jun 18 2022
%E a(7) from _Minfeng Wang_, Feb 09 2023
|
