|
|
A303000
|
|
a(n) = permanent of the n X n matrix with entries a(i, i) = i^2 and a(i, j) = 1 elsewhere.
|
|
2
|
|
|
1, 5, 52, 918, 24630, 934938, 47736048, 3157054776, 262661665176, 26857133054424, 3311299323349920, 484541686800059760, 83031688670103506160, 16472545369548670950480, 3746065113561656467249920, 968109978211279792380074880, 282158259444905145777416119680
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Permanent[DiagonalMatrix[Table[i^2-1, {i, 1, n}]] + 1], {n, 1, 20}]
|
|
PROG
|
(PARI) {a(n) = matpermanent(matrix(n, n, i, j, if(i==j, i^2, 1)))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|