login
Permanent of the n-th principal submatrix of (A134446 in square format).
1

%I #14 Jul 12 2012 00:39:54

%S 1,4,72,2304,172800,18662400,3657830400,936404582400,379243855872000,

%T 189621927936000000,137665519681536000000,118943009004847104000000,

%U 140709579652734124032000000,193053543283551218171904000000

%N Permanent of the n-th principal submatrix of (A134446 in square format).

%t f[i_, j_] := Floor[(i + 1/2)] Floor[(j + 1)/2];

%t m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]

%t TableForm[m[8]] (* 8x8 principal submatrix *)

%t Flatten[Table[f[i, n + 1 - i],

%t {n, 1, 12}, {i, 1, n}]] (* A134446 as a square *)

%t Permanent[m_] :=

%t With[{a = Array[x, Length[m]]},

%t Coefficient[Times @@ (m.a), Times @@ a]];

%t Table[Permanent[m[n]], {n, 1, 14}] (* A203264 *)

%Y Cf. A134446.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 14 2012