OFFSET
1,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..36
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)))}
for(n=1, 20, print1(a(n), ", ")) \\ Vaclav Kotesovec, Dec 20 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Apr 17 2018
STATUS
approved