OFFSET
0,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
z = 10; f = Table[Fibonacci[n], {n, 2, z}]; c = Complement[Range[Max[f]], f];
t = Table[LucasL[n + 2], {n, 1, Length[c]}]; c + t
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by Clark Kimberling, Dec 02 2017
STATUS
approved