login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A355021 a(n) = (-1)^n * A000032(n) - 1. 4
1, -2, 2, -5, 6, -12, 17, -30, 46, -77, 122, -200, 321, -522, 842, -1365, 2206, -3572, 5777, -9350, 15126, -24477, 39602, -64080, 103681, -167762, 271442, -439205, 710646, -1149852, 1860497, -3010350, 4870846, -7881197, 12752042, -20633240, 33385281 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
COMMENTS
There are the partial sums of L(1) - L(2) + L(3) - L(4) + L(5) - ... .
Closely related (Fibonacci, A000045) partial sums of F(1) - F(2) + F(3) - F(4) + F(5) - ... are given by A355020.
Apart from signs, same as A098600 and A181716.
LINKS
FORMULA
a(n) = 2*a(n-2) - a(n-3) for n >= 3. [Corrected by Georg Fischer, Sep 30 2022]
G.f.: (1 - 2*x)/(1 - 2*x^2 + x^3).
EXAMPLE
a(0) = 1;
a(1) = 1 - 3 = -2;
a(2) = 1 - 3 + 4 = 2;
a(3) = 1 - 3 + 4 - 7 = -5.
MATHEMATICA
f[n_] := Fibonacci[n]; g[n_] := LucasL[n];
f1 = Table[(-1)^n f[n] + 1, {n, 0, 40}] (* A355020 *)
g1 = Table[(-1)^n g[n] - 1, {n, 0, 40}] (* this sequence *)
LucasL[-Range[0, 50]] - 1 (* G. C. Greubel, Mar 17 2024 *)
PROG
(Magma) [Lucas(-n) -1: n in [0..50]]; // G. C. Greubel, Mar 17 2024
(SageMath) [lucas_number2(-n, 1, -1) -1 for n in range(51)] # G. C. Greubel, Mar 17 2024
CROSSREFS
Sequence in context: A356367 A365825 A099926 * A098600 A181716 A261866
KEYWORD
sign,easy,changed
AUTHOR
Clark Kimberling, Jun 21 2022
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 20:05 EDT 2024. Contains 371254 sequences. (Running on oeis4.)