OFFSET
1,2
LINKS
Wikipedia, Permanent
MATHEMATICA
Permanent[m_List] := With[{v = Array[x, Length[m]]}, Coefficient[Times @@ (m.v), Times @@ v]]; Table[m = Table[QBinomial[r + c, r, 2], {r, 0, n}, {c, 0, n}]; Permanent[m], {n, 0, 8}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Nov 11 2015
STATUS
approved