OFFSET
0,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..37
FORMULA
a(n) ~ c * d^n * (n!)^3 / n, where d = 6.14071825... and c = 1.79385445... - Vaclav Kotesovec, Aug 12 2021
MAPLE
with(LinearAlgebra):
a:= n-> `if`(n=0, 1, Permanent(Matrix(n, (i, j)-> (i+j)^2))):
seq(a(n), n=0..16); # Vaclav Kotesovec, Nov 29 2016, after Alois P. Heinz
MATHEMATICA
Flatten[{1, Table[Permanent[Table[(i+j)^2, {i, 1, n}, {j, 1, n}]], {n, 1, 15}]}]
PROG
(PARI) {a(n) = matpermanent(matrix(n, n, i, j, (i+j)^2))}
for(n=0, 20, print1(a(n), ", ")) \\ Vaclav Kotesovec, Aug 09 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Nov 29 2016
STATUS
approved