A204548 Permanent of the n-th principal submatrix of A204547.

0, 0, 1, 2, 4, 8, 72, 288, 864, 3456, 35424, 212544, 1088640, 6220800, 75064320, 600514560, 4147200000, 31684608000, 440681472000, 4406814720000, 39103948800000, 373098700800000

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A204547, A204269.

Sequence in context: A018507 A018523 A261714 * A018532 A270381 A099280

Adjacent sequences: A204545 A204546 A204547 * A204549 A204550 A204551

Keyword

nonn

Author

Clark Kimberling, Jan 16 2012

Status

approved