OFFSET
1,1
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
KEYWORD
sign,base
AUTHOR
Andrew R. Reiter, Sep 01 2015
STATUS
approved