A014252 a(n) = b(n) - c(n) where b(n) is the n-th Lucas number greater than 3 and c(n) is the n-th number not in sequence b( ).

3, 5, 8, 13, 23, 39, 67, 113, 187, 309, 507, 828, 1348, 2190, 3552, 5758, 9328, 15105, 24453, 39579, 64054, 103656, 167734, 271415, 439174, 710616, 1149819, 1860465, 3010315, 4870812, 7881160, 12752006, 20633201, 33385243, 54018481

Offset

1,1

Links

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

Mathematica

b:= Complement[Range[1, 100], LucasL[Range[20]]]; Join[{3, 5, 8}, Table[LucasL[n+4] - b[[n]], {n, 2, 35}]] (* G. C. Greubel, Jun 19 2019 *)

Crossrefs

Cf. A000032 (Lucas numbers).

Sequence in context: A133605 A218607 A289916 * A296378 A177231 A259597

Adjacent sequences: A014249 A014250 A014251 * A014253 A014254 A014255

Keyword

nonn

Author

Clark Kimberling

Extensions

Missing a(30) inserted and more terms from Sean A. Irvine, Oct 17 2018

Status

approved