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
Programs
-
Mathematica
Most@ Differences[ Last /@ Tally[ Max[ IntegerLength@#, 1] & /@ Fibonacci[ Range[0, 900]]]] (* Giovanni Resta, Sep 02 2015 *)
-
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
Comments