A362358 Alternating sum of digits of the Fibonacci numbers, with a plus sign for the last digit.

0, 1, 1, 2, 3, 5, 8, 2, -1, 1, 0, 1, 1, 2, 3, 5, 8, 2, -1, -10, 0, 12, 1, 2, 3, 5, -3, 13, -1, 1, -11, 1, 12, 2, 3, 5, -3, 13, 10, 1, 0, 1, -10, 13, 3, -17, 19, -9, 10, 1, 0, 1, 12, 13, 3, -6, 8, 2, -1, -10, 0, 1, 12, -9, 3, 5, -3, -9, -23, 1, -22, 34, -10, 2

Offset

0,4

Comments

a(n) mod 11 = F(n) mod 11 = A105955(n). This is the mod 11 rule applied to F(n) = A000045.

Links

Alois P. Heinz, Table of n, a(n) for n = 0..10000

Formula

Let [f_s(n), f_{s(n)-1}, ..., f_0] be the list of digits of F(n) = A000040(n) with s(n) = A060384(n) - 1, then a(n) = Sum_{j=0..s(n)} (-1)^j*f_j.

a(n) = A055017(A000045(n)), for n >= 0.

Example

F(17) = 1597, s(n) = 4 - 1 = 3, a(17) = 7 - 9 + 5 - 1 = 2.

Mathematica

a[n_]:=Sum[(-1)^(IntegerLength[Fibonacci[n]]-i) Part[IntegerDigits[Fibonacci[n]], i], {i, IntegerLength[Fibonacci[n]]}]; Array[a, 66, 0] (* Stefano Spezia, May 27 2023 *)

Prog

(PARI) a(n) = my(d=Vecrev(digits(fibonacci(n)))); sum(k=1, #d, (-1)^(k+1)*d[k]); \\ Michel Marcus, May 28 2023

Crossrefs

Cf. A000045, A004090, A007887, A055017, A060384, A105955.

Sequence in context: A098978 A111301 A247193 * A096320 A105955 A003893

Adjacent sequences: A362355 A362356 A362357 * A362359 A362360 A362361

Keyword

sign,base,look,easy

Author

Wolfdieter Lang, May 26 2023

Status

approved