OFFSET
0,5
COMMENTS
See A097083 for the positive values of n such that a(n) = 1.
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
John W. Layman, Jul 23 2004
EXTENSIONS
a(30)-a(50) from Ray Chandler, Jul 26 2004
More terms from David Wasserman, Dec 19 2007
a(0)=1 prepended by Stefano Spezia, Mar 04 2024
STATUS
approved