%I #3 Nov 29 2016 07:10:13
%S 1,1,6,65,1737,91359,8755730,1465091787,420070484342,194857695312573,
%T 142349343815684947,161388097061567486595,276760372468557882285737,
%U 707850058213409589011565269,2654427644322345709705054800083
%N a(n) = permanent M_n where M_n is the n X n matrix m(i,j) = A000009(i+j).
%t Flatten[{1, Table[Permanent[Table[PartitionsQ[i+j], {i, 1, n}, {j, 1, n}]], {n, 1, 14}]}]
%Y Cf. A000009, A005249, A204249, A278839, A278840.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Nov 29 2016
|