OFFSET
0,3
EXAMPLE
a(3) = 3206:
[1, 7, 6]
[1, 15, 25]
[1, 31, 90]
MATHEMATICA
a[n_]:=Permanent[Table[StirlingS2[i+3, j], {i, n}, {j, n}]]; Join[{1}, Array[a, 13]]
PROG
(PARI) a(n) = matpermanent(matrix(n, n, i, j, stirling(i+3, j, 2))); \\ Michel Marcus, Feb 16 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Feb 15 2025
STATUS
approved