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
Examples
F(17) = 1597, s(n) = 4 - 1 = 3, a(17) = 7 - 9 + 5 - 1 = 2.
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..10000
Programs
-
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 *)
-
PARI
a(n) = my(d=Vecrev(digits(fibonacci(n)))); sum(k=1, #d, (-1)^(k+1)*d[k]); \\ Michel Marcus, May 28 2023
Comments