0,3

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}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Oct 24 2005)

J (www.jsoftware.com)

H =: % @: >: @: (+/~) @: i. @ x:

perm=: +/ .*

perm@%.@H n

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

Sequence in context: A076230 A118076 A056746 this_sequence A096132 A078083 A105328

Adjacent sequences: A111191 A111192 A111193 this_sequence A111195 A111196 A111197

nonn

Roger Hui (RHui000(AT)Shaw.CA), Oct 22 2005