A261812 First differences of A098842.

-2, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0

Offset

1,1

Links

Table of n, a(n) for n=1..136.

Formula

a(n) = A098842(n+1) - A098842(n).

Mathematica

Most@ Differences[ Last /@ Tally[ Max[ IntegerLength@#, 1] & /@ Fibonacci[ Range[0, 900]]]] (* Giovanni Resta, Sep 02 2015 *)

Prog

(Python)
import sys
import math
F = [F0, F1] = [0, 1]
c = 2
c0 = 0
ll0 = 1
while True:
        T = F[0] + F[1]
        F[0] = F[1]
        F[1] = T
        dfn = 1 + math.log10(T)
        ll = math.floor(dfn)
        if ll0 != ll:
                if c0 != 0:
                        sys.stdout.write("%d, " % (c-c0))
                ll0 = ll
                c0 = c
                c = 1
                continue
        c += 1

Crossrefs

Sequence in context: A085861 A326197 A325226 * A077266 A366794 A214302

Adjacent sequences: A261809 A261810 A261811 * A261813 A261814 A261815

Keyword

sign,base

Author

Andrew R. Reiter, Sep 01 2015

Status

approved