OFFSET
0,1
FORMULA
MATHEMATICA
Module[{nn=50, fibs, nlucs, len}, fibs=Fibonacci[Range[4, nn+4]]; nlucs=Join[ {1}, Complement[Range[nn], LucasL[Range[nn/5]]]]; len=Min[Length[fibs], Length[nlucs]]; Total/@Thread[{Take[fibs, len], Take[nlucs, len]}]] (* Harvey P. Dale, Aug 09 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved