%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