1,2

Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.

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}]

Cf. A061914.

Sequence in context: A052132 A052134 A101811 this_sequence A074282 A013568 A038803

Adjacent sequences: A092323 A092324 A092325 this_sequence A092327 A092328 A092329

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 30 2004