A204442 Permanent of the n-th principal submatrix of A204441.

1, 2, 3, 9, 34, 176, 792, 4752, 32304, 265248, 1991952, 17927568, 175473216, 1969256448, 20695108608, 248341303296, 3173837230080, 45159773184000, 610011772416000, 9150176586240000, 144343174487040000

Offset

1,2

Links

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

Mathematica

f[i_, j_] :=
 Floor[(i + j + 2)/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}]]            (* A204441 *)
Permanent[m_] :=
  With[{a = Array[x, Length[m]]},
   Coefficient[Times @@ (m.a), Times @@ a]];
Table[Permanent[m[n]], {n, 1, 22}]   (* A204442 *)

Crossrefs

Cf. A204441, A204435.

Sequence in context: A259943 A296263 A064020 * A306523 A095412 A074428

Adjacent sequences: A204439 A204440 A204441 * A204443 A204444 A204445

Keyword

nonn

Author

Clark Kimberling, Jan 15 2012

Status

approved