A278841 a(n) = permanent M_n where M_n is the n X n matrix m(i,j) = A000009(i+j).

1, 1, 6, 65, 1737, 91359, 8755730, 1465091787, 420070484342, 194857695312573, 142349343815684947, 161388097061567486595, 276760372468557882285737, 707850058213409589011565269, 2654427644322345709705054800083

Offset: 0

Author

Vaclav Kotesovec, Nov 29 2016

Keywords

• nonn

Crossrefs

Cf. A000009, A005249, A204249, A278839, A278840.

Programs

Mathematica

Flatten[{1, Table[Permanent[Table[PartitionsQ[i+j], {i, 1, n}, {j, 1, n}]], {n, 1, 14}]}]