OFFSET
1,2
EXAMPLE
The rows of M(4) are (1,3,5,7), (7,1,3,5), (5,7,1,3), (3,5,7,1); determinant(M(4)) = -4716; permanent(M(4)) = 2668, so neg(M(4)) = (-2048 - 7384)/2 = -4716 and pos(M(4)) = (-2048 + 7384)/2 = 2668.
MATHEMATICA
z = 19;
v[n_] := Table[2 k + 1, {k, 0, n - 1}];
u[n_] := Table[RotateRight[#, k - 1], {k, 1, Length[#]}] &[v[n]];
p = Table[Simplify[Permanent[u[n]]], {n, 1, z}] (* A384074 *)
d = Table[Simplify[Det[u[n]]], {n, 1, z}] (* A193678, with alternating signs *)
neg = (d - p)/2 (* A384075 *)
pos = (d + p)/2 (* A384076 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Clark Kimberling, May 22 2025
STATUS
approved
