OFFSET
1,2
MATHEMATICA
z = 16; v[n_] := Table[2 k + 1, {k, 0, n - 1}];
u[n_] := Table[RotateRight[#, k - 1], {k, 1, Length[#]}] &[v[n]];
Table[Simplify[Permanent[u[n]]], {n, 1, z}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 22 2025
STATUS
approved
