cp's OEIS Frontend

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

%I A203264 #14 Jul 12 2012 00:39:54
%S A203264 1,4,72,2304,172800,18662400,3657830400,936404582400,379243855872000,
%T A203264 189621927936000000,137665519681536000000,118943009004847104000000,
%U A203264 140709579652734124032000000,193053543283551218171904000000
%N A203264 Permanent of the n-th principal submatrix of (A134446 in square format).
%t A203264 f[i_, j_] := Floor[(i + 1/2)] Floor[(j + 1)/2];
%t A203264 m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]
%t A203264 TableForm[m[8]] (* 8x8 principal submatrix *)
%t A203264 Flatten[Table[f[i, n + 1 - i],
%t A203264   {n, 1, 12}, {i, 1, n}]]  (* A134446 as a square *)
%t A203264 Permanent[m_] :=
%t A203264   With[{a = Array[x, Length[m]]},
%t A203264    Coefficient[Times @@ (m.a), Times @@ a]];
%t A203264 Table[Permanent[m[n]], {n, 1, 14}]  (* A203264 *)
%Y A203264 Cf. A134446.
%K A203264 nonn
%O A203264 1,2
%A A203264 _Clark Kimberling_, Jan 14 2012