|
%I #7 Mar 30 2012 17:22:58
%S 1,4,5,5,8,8,9,9,9,9,9,12,12,12,12,12,12,13,13,13,13,13,13,13,13,13,
%T 13,13,13,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,17,17,17,
%U 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17
%N Number of digits in the minimal base-phi representation of n.
%C See A130600(n) for the digits in the minimal base phi representation of n.
%H T. D. Noe, <a href="/A190796/b190796.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A055778(n) + A133775(n).
%F a(n) <= 2 * ceiling( log(n) / log(phi) ) for n > 1.
%t nn = 100; len = 2*Ceiling[Log[GoldenRatio, nn]]; Table[d = RealDigits[n, GoldenRatio, len]; last1 = Position[d[[1]], 1][[-1, 1]]; last1, {n, 1, nn}]
%Y Cf. A055778, A130600, A133775.
%K nonn,base
%O 1,2
%A _T. D. Noe_, May 20 2011
|
