%I A118241
%S A118241 0,0,1,2,3,5,7,10,11,13,14,15,21,23,26,27,29,31,42,43,45,46,47,53,55,58,
%T A118241 59,61,62,63,85,87,90,91,93,95,106,107,109,110,111,117,119,122,123,125,
%U A118241 127,170,171,173,174,175,181,183,186,187,189,190,191,213,215,218,219
%N A118241 Intepret A118240 as a binary sequence and convert to decimal.
%C A118241 constant (float): phi=(sqrt(5)+1)/2; variable (float): lphi=phi^floor[log(n)/
               log(phi)]; variable (float): rem=n; variable (integer): count=0; 
               loop: while lphi>1 (count=count*2; lphi=lphi/phi; if(rem > lphi*phi) 
               { rem=rem-lphi; count++;}}
%e A118241 6 = 111.01101010... in base phi using the least-greedy
%e A118241 algorithm, so A118240(6)=111, so a(6)=7.
%Y A118241 Cf. A118240, A105425.
%Y A118241 Sequence in context: A122428 A087246 A109608 this_sequence A002269 A047487 
               A048461
%Y A118241 Adjacent sequences: A118238 A118239 A118240 this_sequence A118242 A118243 
               A118244
%K A118241 nonn
%O A118241 0,4
%A A118241 Graeme McRae (g_m(AT)mcraefamily.com), Apr 17, 2006