A020913 Number of terms in base 5 representation of Fibonacci(n).

1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, 15, 15, 15, 16, 16, 16, 16, 17, 17, 17, 18, 18, 18, 19, 19, 19, 19, 20, 20, 20, 21, 21, 21, 22, 22, 22, 22, 23, 23, 23, 24, 24

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Programs

Maple

A020913 := proc(n)
    convert(combinat[fibonacci](n),base,5) ;
    nops(%) ;
end proc: # R. J. Mathar, Apr 16 2013

Mathematica

IntegerLength[Fibonacci[Range[80]],5] (* Harvey P. Dale, Apr 25 2016 *)