OFFSET
0,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
MATHEMATICA
tarLen = 35; fiboList = Fibonacci[Range[2, tarLen + 1]]; threshold = fiboList[[-1]]; fiboList + Take[Complement[Range[threshold], LucasL[Range[tarLen]]], tarLen] (* Alonso del Arte, Jan 28 2019 *)
Table[Fibonacci[n+2] + Floor[1/2 - LambertW[-1, -Log[GoldenRatio]/GoldenRatio^(n + 1/2)] / Log[GoldenRatio]], {n, 0, 50}] (* Vaclav Kotesovec, Jan 30 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected by Clark Kimberling, Jan 29 2019
STATUS
approved