A204446 Permanent of the n-th principal submatrix of A204445.

1, 1, 3, 9, 34, 116, 792, 4752, 32304, 202320, 1991952, 17927568, 175473216, 1613364480, 20695108608, 248341303296, 3173837230080, 38575603814400, 610011772416000, 9150176586240000, 144343174487040000, 2183607168215040000

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A204245, A204435.

Sequence in context: A160963 A149001 A149002 * A149003 A149004 A149005

Adjacent sequences: A204443 A204444 A204445 * A204447 A204448 A204449

Keyword

nonn

Author

Clark Kimberling, Jan 15 2012

Status

approved