OFFSET
0,4
COMMENTS
In 2022, Han Wang and Zhi-Wei Sun determined the values of det[i-j+d(i,j)]_{1<=i,j<=n} and det[|i-j|+d(i,j)]_{1<=i,j<=n}, where d(i,j) is 1 or 0 according as i = j or not.
LINKS
Sela Fried, On Sun's conjectures for determinants of [(i-j)^m + d(i,j)]_{1<=i,j<=n}, 2026.
Sela Fried, Proofs of several OEIS conjectures on determinants and permanents, arXiv:2606.09913 [math.CO], 2026. See pp. 2, 23-25.
Han Wang and Zhi-Wei Sun, Evaluations of three determinants, arXiv:2206.12317 [math.NT], 2022.
Index entries for linear recurrences with constant coefficients, signature (10,-45,120,-210,252,-210,120,-45,10,-1).
FORMULA
Conjecture: a(n) = (n^2-4)*(n^2+2*n+3)*(n^5-2*n^4-n^3-28*n^2+60*n-90)/1080.
The conjecture is true (see Fried link). - Sela Fried, Feb 01 2026
G.f.: -(x^9-10*x^8+20*x^7-145*x^6-34*x^5-225*x^4+84*x^3-35*x^2+9*x-1)/(x-1)^10. - Alois P. Heinz, Feb 01 2026
EXAMPLE
a(3) = -9 since the matrix [(i-j)^2+d(i,j)]_{1<=i,j<=3} = [1,1,4; 1,1,1; 4,1,1] has determinant -9.
MAPLE
a:= n-> LinearAlgebra[Determinant](Matrix(n, (i, j)->`if`(i=j, 1, (i-j)^2))):
seq(a(n), n=0..34); # Alois P. Heinz, Feb 01 2026
MATHEMATICA
a[n_]:=a[n]=Det[Table[If[i==j, 1, (i-j)^2], {i, 1, n}, {j, 1, n}]]
Table[a[n], {n, 1, 34}]
PROG
(Python)
from sympy import Matrix
def A355175(n): return Matrix(n, n, [(i-j)**2 + int(i==j) for i in range(n) for j in range(n)]).det() # Chai Wah Wu, Jun 28 2022
(PARI) a(n) = matdet(matrix(n, n, i, j, if (i==j, 1, (i-j)^2))); \\ Michel Marcus, Jun 29 2022
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Zhi-Wei Sun, Jun 28 2022
EXTENSIONS
a(0)=1 prepended by Alois P. Heinz, Feb 01 2026
STATUS
approved
