login
A022810
a(n) = L(n+2) + c(n) where L(k) is the k-th Lucas number and c(n) is the n-th number that is 1 or 3 or is not a Lucas number.
1
5, 9, 14, 23, 35, 55, 85, 133, 211, 335, 535, 858, 1380, 2224, 3590, 5798, 9370, 15149, 24499, 39627, 64104, 103708, 167788, 271471, 439234, 710678, 1149883, 1860531, 3010383, 4870882, 7881232
OFFSET
1,1
LINKS
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
Sequence in context: A314990 A314991 A314992 * A109329 A169872 A115380
KEYWORD
nonn
STATUS
approved