OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{nn=40, luc, nluc, len}, luc=LucasL[Range[3, nn]]; len=Length[luc]; nluc = Take[Complement[Range[nn+20], luc], len]; Total/@Thread[{luc, nluc}]] (* Harvey P. Dale, Aug 28 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved