cp's OEIS Frontend

A204247 Determinant of the n-th principal submatrix of A204246.

%I A204247 #11 Jan 27 2021 10:31:53
%S A204247 1,0,-1,-8,-204,-24768,-17867520,-90077184000,-3632037470208000,
%T A204247 -1317998813773824000000,-4782755930355924782284800000,
%U A204247 -190912318579437962454242426880000000
%N A204247 Determinant of the n-th principal submatrix of A204246.
%t A204247 f[i_, j_] := 0; f[1, j_] := 1;
%t A204247 f[i_, 1] := 1; f[i_, i_] := (i - 1)!;
%t A204247 m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]
%t A204247 TableForm[m[8]] (* 8x8 principal submatrix *)
%t A204247 Flatten[Table[f[i, n + 1 - i],
%t A204247   {n, 1, 12}, {i, 1, n}]]     (* A204246 *)
%t A204247 Table[Det[m[n]], {n, 1, 15}]  (* A204247 *)
%t A204247 Permanent[m_] :=
%t A204247   With[{a = Array[x, Length[m]]},
%t A204247    Coefficient[Times @@ (m.a), Times @@ a]];
%t A204247 Table[Permanent[m[n]], {n, 1, 14}]  (* A203227 *)
%o A204247 (PARI) A204247(n)=matdet(matrix(n,n,i,j,if(min(i,j)==1,1,if(i==j,(i-1)!)))) \\ _M. F. Hasler_, Jan 13 2012
%Y A204247 Cf. A204246, A203227.
%K A204247 sign
%O A204247 1,4
%A A204247 _Clark Kimberling_, Jan 13 2012