This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A097082 #22 Mar 05 2024 09:07:35
%S A097082 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,
%T A097082 288,48,64,2304,1600,10800,288,432,8,675,650,1,26,9,10400,1600,576,
%U A097082 2304,23040,576,2560,1024,368640,516096,128000,2240000,5832000,32256,2304,46656,64,96,91125,3750,84500,6,1,676,9,261
%N A097082 Number of permutations p of (1,2,3,...,n) such that k+p(k) is a Fibonacci number for 1 <= k <= n.
%C A097082 See A097083 for the positive values of n such that a(n) = 1.
%F A097082 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.
%t A097082 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 *)
%Y A097082 Cf. A010056, A073364, A095986, A097083.
%K A097082 nonn
%O A097082 0,5
%A A097082 _John W. Layman_, Jul 23 2004
%E A097082 a(30)-a(50) from _Ray Chandler_, Jul 26 2004
%E A097082 More terms from _David Wasserman_, Dec 19 2007
%E A097082 a(0)=1 prepended by _Stefano Spezia_, Mar 04 2024