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

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

Offset

1,4

Links

Table of n, a(n) for n=1..22.

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, A204269.

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

Status

approved