A020913 - OEIS

%I #8 Apr 25 2016 14:24:28

%S 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,

%T 10,10,11,11,11,12,12,12,13,13,13,13,14,14,14,15,15,15,16,16,16,16,17,

%U 17,17,18,18,18,19,19,19,19,20,20,20,21,21,21,22,22,22,22,23,23,23,24,24

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

%p A020913 := proc(n)

%p     convert(combinat[fibonacci](n),base,5) ;

%p     nops(%) ;

%p end proc: # _R. J. Mathar_, Apr 16 2013

%t IntegerLength[Fibonacci[Range[80]],5] (* _Harvey P. Dale_, Apr 25 2016 *)

%K nonn

%O 1,5

%A _Clark Kimberling_