A384591 a(n) = permanent of the n X n circulant matrix with (row 1) = (F(1), F(2), ..., F(n)), where F = A000045 (Fibonacci numbers).
1, 1, 2, 16, 265, 12552, 1431040, 426749895, 323397418338, 635720375415040, 3236089602490212389, 42921641465456435652532, 1485502760348227071906663424, 134453761950835461349077548216607, 31856917244136936392984483908703780290
Offset: 0
Keywords
Programs
-
Mathematica
z = 14; v[n_] := Table[Fibonacci[k], {k, 1, n}]; u[n_] := Table[RotateRight[#, k - 1], {k, 1, Length[#]}] &[v[n]] Table[Permanent[u[n]], {n, 1, z}]