|
| |
|
|
A296353
|
|
List of nonzero determinants of Unbordered Lights Out matrices UBL_k.
|
|
4
|
|
|
|
80, -1215, 142805, -7004233215, 870763219280, 87789257318405, 45421053339522658203125, -7059547871395329316834815, -19913109703689000789427796194815, 42950557989828549673287680, 940419421873808776346210289268985127605
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
For the orders of these matrices see A296352.
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
K[n_] := Table[If[MemberQ[{0, 1, n - 1}, Abs[i - j]], 1, 0], {i, 1, n}, {j, 1, n}]; UL[n_] := KroneckerProduct[(kn = K[n]), (in = IdentityMatrix[n])] + KroneckerProduct[in, kn] - IdentityMatrix[n^2]; Select[Table[Det @ UL[n], {n, 3, 20}], # != 0 &] (* Amiram Eldar, May 13 2020 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
