login
A366361
a(n) is the permanent of the n X n matrix M(n) defined by M[i, j, n] = binomial(n*i, j).
0
1, 1, 16, 8343, 191379456, 243158252171875, 20790955151695025307648, 141077987559931565709345896142747, 87560777683393072753972141033294994323013632, 5630148253059996156951223684618938659855264355379747814715, 41903151415731168301895742189359145224747037005872123307731920000000000000
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
Cf. A023813 (determinant).
Sequence in context: A221085 A280845 A069986 * A265177 A151641 A265240
KEYWORD
nonn
AUTHOR
Stefano Spezia, Oct 08 2023
STATUS
approved