|
|
A014243
|
|
a(n) = ((n+1)-st Lucas number) - (n-th non-Lucas number).
|
|
1
|
|
|
-2, -2, -1, 2, 8, 17, 34, 62, 108, 183, 305, 502, 823, 1343, 2185, 3548, 5754, 9324, 15101, 24449, 39575, 64049, 103651, 167729, 271410, 439170, 710612, 1149815, 1860461, 3010311, 4870808, 7881156
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
b:= Complement[Range[1, 100], LucasL[Range[20]]]; Table[LucasL[n+1] - b[[n+1]], {n, 1, 40}] (* G. C. Greubel, Jun 19 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|