A366361 a(n) is the permanent of the n X n matrix M(n) defined by M[i, j, n] = binomial(n*i, j).

1, 1, 16, 8343, 191379456, 243158252171875, 20790955151695025307648, 141077987559931565709345896142747, 87560777683393072753972141033294994323013632, 5630148253059996156951223684618938659855264355379747814715, 41903151415731168301895742189359145224747037005872123307731920000000000000

Offset: 0

Author

Stefano Spezia, Oct 08 2023

Keywords

• nonn

Examples

			a(3) = 8343:
  [3,  3,  1]
  [6, 15, 20]
  [9, 36, 84]
		

Crossrefs

Cf. A023813 (determinant).

Programs

Mathematica

a[n_]:=Permanent[Table[Binomial[n i,j],{i,n},{j,n}]]; Join[{1},Array[a,10]]

PARI

a(n) = {matpermanent(matrix(n, n, i, j, binomial(n*i, j)))}; \\ Vaclav Kotesovec, Oct 08 2023