A204546 Permanent of the n-th principal submatrix of A204545.

1, 1, 0, 1, 2, 6, 8, 48, 288, 1344, 3456, 28512, 212544, 1425600, 6220800, 61378560, 600514560, 5185658880, 31684608000, 374492160000, 4406814720000, 46820229120000, 373098700800000, 5128069201920000, 70905056624640000, 893661057515520000, 8800353675509760000

Offset

0,5

Links

Table of n, a(n) for n=0..26.

Mathematica

f[i_, j_] :=
Floor[(i + j + 3)/4] - Floor[(i + j + 1)/4];
m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]
TableForm[m[8]] (* 8x8 principal submatrix *)
Flatten[Table[f[i, n + 1 - i],
  {n, 1, 14}, {i, 1, n}]]     (* A204545 *)
Permanent[m_] :=
  With[{a = Array[x, Length[m]]},
   Coefficient[Times @@ (m.a), Times @@ a]];
Table[Permanent[m[n]], {n, 1, 22}]      (* A204546 *)

Crossrefs

Cf. A204545.

Sequence in context: A098239 A140257 A361427 * A192534 A053938 A102381

Adjacent sequences: A204543 A204544 A204545 * A204547 A204548 A204549

Keyword

nonn

Author

Clark Kimberling, Jan 16 2012

Extensions

Title corrected by Rintaro Matsuo, Apr 15 2025

a(0), a(23) from Alois P. Heinz, Apr 15 2025

a(24)-a(26) from Pontus von Brömssen, Jun 22 2025

Status

approved