|
|
|
|
2, 4, 6, 10, 18, 28, 46, 76, 122, 198, 322, 520, 842, 1364, 2206, 3570, 5778, 9348, 15126, 24476, 39602, 64078, 103682, 167760, 271442, 439204, 710646, 1149850, 1860498, 3010348, 4870846, 7881196, 12752042, 20633238, 33385282, 54018520, 87403802, 141422324, 228826126
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Lucas(n+1) - (1/2)*(1 + (-1)^((n+2) mod 3)). - G. C. Greubel, Apr 14 2021
|
|
MATHEMATICA
|
Table[LucasL[n+1] - (1/2)*(1+(-1)^Mod[n+2, 3]), {n, 45}] (* G. C. Greubel, Apr 14 2021 *)
|
|
PROG
|
(Magma) [Lucas(n+1) - (1/2)*(1 + (-1)^((n+2) mod 3)): n in [1..45]]; // G. C. Greubel, Apr 14 2021
(Sage) [lucas_number2(n+1, 1, -1) - (1/2)*(1 + (-1)^((n+2)%3)) for n in (1..45)] # G. C. Greubel, Apr 14 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|