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,3

Links

Table of n, a(n) for n=0..14.

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}]

Crossrefs

Cf. A000045, A123744 (determinant), A384080, A384313.

Sequence in context: A372513 A283685 A197458 * A050974 A012188 A217816

Adjacent sequences: A384588 A384589 A384590 * A384592 A384593 A384594

Keyword

nonn

Author

Clark Kimberling, Jun 27 2025

Status

approved