A014244 (n-th Lucas number that is not 1) - (n-th number that is 1 or not a Lucas number).

2, 2, 2, 5, 10, 20, 37, 64, 110, 185, 307, 505, 826, 1345, 2187, 3550, 5756, 9326, 15103, 24451, 39577, 64052, 103654, 167731, 271412, 439172, 710614, 1149817, 1860463, 3010313, 4870810, 7881158

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Mathematica

b:= Complement[Range[1, 200], LucasL[Range[20]]]; Join[{2}, Table[LucasL[n+2] - b[[n]], {n, 1, 39}]] (* G. C. Greubel, Jun 22 2019 *)

Crossrefs

Sequence in context: A008295 A216694 A116697 * A216634 A208054 A059814

Adjacent sequences: A014241 A014242 A014243 * A014245 A014246 A014247

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected by T. D. Noe, Oct 31 2006

Status

approved