OFFSET
0,3
COMMENTS
The matrix M(n) is nonsingular only for n = 1, 5, 6 and 7 with determinant equal respectively to 1, 6561, 59049 and -531441.
FORMULA
Sum_{i=1..n} M[n-i+1,i] = A362072(n).
EXAMPLE
a(6) = 7226091:
[1, 2, 3, 4, 5, 6]
[2, 4, 6, 8, 1, 3]
[3, 6, 9, 3, 6, 9]
[4, 8, 3, 7, 2, 6]
[5, 1, 6, 2, 7, 3]
[6, 3, 9, 6, 3, 9]
MATHEMATICA
M[i_, j_]:=Total[IntegerDigits[i*j]]; Join[{1}, Table[Permanent[Table[M[i, j], {i, n}, {j, n}]], {n, 18}]]
PROG
(PARI) a(n) = matpermanent(matrix(n, n, i, j, sumdigits(i*j))); \\ Michel Marcus, Apr 08 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stefano Spezia, Apr 08 2023
STATUS
approved