|
|
A097082
|
|
Number of permutations p of (1,2,3,...,n) such that k+p(k) is a Fibonacci number for 1 <= k <= n.
|
|
4
|
|
|
1, 1, 1, 1, 2, 1, 2, 4, 2, 1, 4, 4, 20, 4, 5, 1, 20, 24, 8, 96, 200, 24, 4, 25, 1, 3, 200, 48, 288, 48, 64, 2304, 1600, 10800, 288, 432, 8, 675, 650, 1, 26, 9, 10400, 1600, 576, 2304, 23040, 576, 2560, 1024, 368640, 516096, 128000, 2240000, 5832000, 32256, 2304, 46656, 64, 96, 91125, 3750, 84500, 6, 1, 676, 9, 261
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
COMMENTS
|
See A097083 for the positive values of n such that a(n) = 1.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = permanent(m), where the n X n matrix m is defined by m(i,j) = 1 or 0 depending on whether i+j is a Fibonacci number or not.
|
|
MATHEMATICA
|
nmax=67; A010056[n_]:=With[{fibs=Fibonacci[Range[nmax]]}, If[MemberQ[fibs, n], 1, 0]]; a[n_]:=Permanent[Table[If[A010056[i+j]==1, 1, 0], {i, n}, {j, n}]]; Join[{1}, Array[a, nmax]] (* Stefano Spezia, Mar 03 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|