OFFSET
0,3
EXAMPLE
a(3) = 8343:
[3, 3, 1]
[6, 15, 20]
[9, 36, 84]
MATHEMATICA
a[n_]:=Permanent[Table[Binomial[n i, j], {i, n}, {j, n}]]; Join[{1}, Array[a, 10]]
PROG
(PARI) a(n) = {matpermanent(matrix(n, n, i, j, binomial(n*i, j)))}; \\ Vaclav Kotesovec, Oct 08 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Oct 08 2023
STATUS
approved