OFFSET
0,2
COMMENTS
It differs from A389503 in the sign between the two products.
EXAMPLE
MATHEMATICA
p[i_]:=i; M[i_, j_, n_]:=Part[Part[ToeplitzMatrix[Join[{p[1]}, Array[p, n-1, {n+1, 2*n-1}]], Array[p, n]], i], j]; a[n_]:=Sum[Product[M[j, Mod[i+j-2, n]+1, n], {j, n}]+Product[M[j, Mod[i-j-1, n]+1, n], {j, n}], {i, n}]; Array[a, 20, 0]
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Oct 07 2025
STATUS
approved
