OFFSET
0,4
MATHEMATICA
z = 16;
v[n_] := Table[Fibonacci[k], {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, Jun 01 2025
EXTENSIONS
a(0)=1 prepended by Alois P. Heinz, Jun 27 2025
STATUS
approved
