OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
FORMULA
G.f.: (2*x^14 + 3*x^12 + x^11 + 4*x^10 + 7*x^9 + 5*x^7 - 7*x^6 - 5*x^5 - 4*x^4 - 3*x^3 - 2*x^2 - x) / (-x^12 + 18*x^6 - 1). - Alois P. Heinz, Dec 29 2010
MAPLE
a:= proc(n) local l, r;
l:= [1, 2, 3, 4, 5, 7, 13, 36, 47, 68, 89, 123, 233, 644];
`if`(n<15, l[n], (<<0|1>, <-1|18>> ^iquo(n-3, 6, 'r').
<<l[3+r], l[9+r]>>) [1, 1])
end:
seq(a(n), n=1..40); # Alois P. Heinz, Dec 29 2010
MATHEMATICA
Take[Union@Table[GCD[Fibonacci[n], Fibonacci[n+3]+2], {n, 1000}], 60]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 26 2010
STATUS
approved