OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
FORMULA
G.f.: (x^5 + x^4 - 2*x^2 - x)/(-x^4 + 3*x^2 - 1). - Alois P. Heinz, Dec 28 2010
MAPLE
a:= n-> `if` (n<2, n, (Matrix (4, (i, j)-> if i+1=j then 1 elif i=4 then [-1, 0, 3, 0][j] else 0 fi)^(n-1). <<2, 2, 3, 5>>)[1, 1]): seq (a(n), n=1..40); # Alois P. Heinz, Dec 28 2010
MATHEMATICA
Take[Union@Table[GCD[Fibonacci[n], Fibonacci[n+1]+1], {n, 1000}], 60]
GCD[#[[1]], #[[2]]+1]&/@Partition[Fibonacci[Range[100]], 2, 1]//Union (* Harvey P. Dale, Sep 22 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 26 2010
STATUS
approved