OFFSET
0,3
FORMULA
MAPLE
a:= n-> LinearAlgebra[Determinant](Matrix(n, (i, j) -> i^j*(i-j))):
seq(a(n), n=0..12); # Alois P. Heinz, Jan 25 2023
MATHEMATICA
a[n_] := Det@Table[i^j (i - j), {i, n}, {j, n}]; Table[a[n], {n, 1, 15}]
PROG
(PARI) a(n) = matdet(matrix(n, n, i, j, i^j*(i-j))); \\ Michel Marcus, Jan 24 2023
(Python)
from sympy import Matrix
def A360067(n): return Matrix(n, n, [i**j*(i-j) for i in range(1, n+1) for j in range(1, n+1)]).det() # Chai Wah Wu, Jan 27 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Jan 24 2023
STATUS
approved