login
List of nonzero determinants of Bordered Lights Out matrices BL_k.
4

%I #16 May 13 2020 07:04:26

%S -3,-7,2197,-34391,-4002939,276762749,-133968364171875,

%T -239121867667810023,105499562776343659717577,

%U -3916466797684156666150912,-684705401333128471131344184438251,225821697750350580274314863789803277056101,-2768960885387220187221550050659464666284508951

%N List of nonzero determinants of Bordered Lights Out matrices BL_k.

%C For the orders of these matrices see A296350.

%H Amiram Eldar, <a href="/A296351/b296351.txt">Table of n, a(n) for n = 1..37</a>

%H Martin Kreh, <a href="https://doi.org/10.4169/amer.math.monthly.124.10.937">"Lights Out" and Variants</a>, Amer. Math. Month., Vol. 124 (10), Dec. 2017, pp. 937-950.

%t 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 *)

%Y Cf. A296350, A296352, A296353.

%K sign

%O 1,1

%A _N. J. A. Sloane_, Dec 14 2017