A204444 Permanent of the n-th principal submatrix of A204443.

1, 1, 2, 9, 34, 140, 672, 4752, 32304, 230832, 1780704, 17927568, 175473216, 1780206336, 18988867584, 248341303296, 3173837230080, 41713375334400, 568818754560000, 9150176586240000, 144343174487040000, 2329812142295040000

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A204243, A204435.

Sequence in context: A077234 A091526 A274750 * A204430 A150937 A150938

Adjacent sequences: A204441 A204442 A204443 * A204445 A204446 A204447

Keyword

nonn

Author

Clark Kimberling, Jan 15 2012

Status

approved