|
|
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( ).
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Missing a(30) inserted and more terms from Sean A. Irvine, Oct 17 2018
|
|
STATUS
|
approved
|
|
|
|