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.

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

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

Sequence in context: A314990 A314991 A314992 * A109329 A169872 A115380

Adjacent sequences: A022807 A022808 A022809 * A022811 A022812 A022813

Keyword

nonn

Author

Clark Kimberling

Status

approved