%I #5 Jan 11 2013 14:13:52
%S 1,7,647,878769,18203480001,5850859031888599,29453515169174062608487,
%T 2335404534493957255219087217249,
%U 2927451248337363113001580852250754885313
%N Permanent of the inverse of the n-th Hilbert matrix divided by the determinant of the inverse of the n-th Hilbert matrix.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Permanent.html">Permanent.</a>
%t Permanent[m_List] := With[{v = Array[x, Length[m]]}, Coefficient[Times @@ (m . v), Times @@ v]]; f[n_] := Block[{i = Inverse[Table[1/(i + j - 1), {i, n}, {j, n}]]}, Permanent[i]/Det[i]]; Table[ f[n], {n, 1, 10}]
%Y Cf. A061914.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jan 30 2004
|