A260639 Permanent of the symmetric n X n matrix in A260638.
1, 4, 206, 433284, 131782705528, 21826979750768842816, 7637711141088259236341772556400, 22237835372502772582455643527946875785037270496, 2138255561398515897400115384129197209090292453675665760256378885504
Offset: 1
Keywords
Links
- Wikipedia, Permanent
Crossrefs
Cf. A260638.
Programs
-
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}]