|
|
A023484
|
|
a(n) = b(n) + d(n), where b(n) = (n-th Lucas number) and d(n) = (n-th non-Fibonacci number).
|
|
1
|
|
|
5, 9, 11, 16, 21, 29, 41, 61, 91, 139, 216, 340, 540, 863, 1386, 2230, 3595, 5803, 9375, 15154, 24504, 39632, 64109, 103713, 167793, 271476, 439239, 710683, 1149888, 1860536, 3010388, 4870887, 7881237, 12752085, 20633282, 33385326
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Module[{nn=40, nf}, nf=Take[Complement[Range[2nn], Fibonacci[Range[nn]]], nn]; Total/@Thread[{LucasL[Range[nn]], nf}]] (* Harvey P. Dale, Apr 26 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|