OFFSET
1,2
LINKS
Eric Weisstein's World of Mathematics, Permanent.
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]/Det[i]]; Table[ f[n], {n, 1, 10}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 30 2004
STATUS
approved