OFFSET
1,1
COMMENTS
For the orders of these matrices see A296350.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..37
Martin Kreh, "Lights Out" and Variants, Amer. Math. Month., Vol. 124 (10), Dec. 2017, pp. 937-950.
MATHEMATICA
J[n_] := Table[If[Abs[i - j] < 2, 1, 0], {i, 1, n}, {j, 1, n}]; BL[n_] := KroneckerProduct[(jn = J[n]), (in = IdentityMatrix[n])] + KroneckerProduct[in, jn] - IdentityMatrix[n^2]; Select[Table[Det @ BL[n], {n, 2, 21}], # != 0 &] (* Amiram Eldar, May 13 2020 *)
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Dec 14 2017
STATUS
approved