A111194 Permanent of the inverse Hilbert matrix.

1, 1, 84, 1397520, 5314794912000, 4855173934730716800000, 1090093558153665322315192780800000, 60907190511553979457004412118419080463155200000

Offset

0,3

Links

Table of n, a(n) for n=0..7.

Mathematica

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]]; Table[ f[n], {n, 7}] (* Robert G. Wilson v, Oct 24 2005 *)

Prog

J (www.jsoftware.com)
H =: % @: >: @: (+/~) @: i. @ x:
perm=: +/ .*
perm@%.@H n

Crossrefs

Cf. A005249 = determinant of inverse Hilbert matrix; and A092326 = (permanent/determinant) of inverse Hilbert matrix.

Sequence in context: A076230 A118076 A056746 * A096132 A078083 A259915

Adjacent sequences: A111191 A111192 A111193 * A111195 A111196 A111197

Keyword

nonn

Author

Roger Hui, Oct 22 2005

Status

approved