OFFSET
0,3
MATHEMATICA
a[n_]:=Denominator[Det[Table[(i+j-1) - 1/(i+j-1), {i, n}, {j, n}]]]; Join[{1}, Array[a, 11]]
PROG
(PARI) a(n) = denominator(matdet(matrix(n, n, i, j, (i+j-1) - 1/(i+j-1)))); \\ Michel Marcus, Jan 19 2025
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Stefano Spezia, Jan 19 2025
STATUS
approved
