A118241 Interpret A118240 as a binary sequence and convert to decimal.

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, 59, 61, 62, 63, 85, 87, 90, 91, 93, 95, 106, 107, 109, 110, 111, 117, 119, 122, 123, 125, 127, 170, 171, 173, 174, 175, 181, 183, 186, 187, 189, 190, 191, 213, 215, 218, 219

Offset

0,4

Links

Table of n, a(n) for n=0..62.

Example

6 = 111.01101010... in base phi using the least-greedy algorithm, so A118240(6)=111, so a(6)=7.

Prog

(Language?)
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++; }}

Crossrefs

Cf. A118240, A105425.

Sequence in context: A109608 A325388 A325405 * A356237 A325160 A258613

Adjacent sequences: A118238 A118239 A118240 * A118242 A118243 A118244

Keyword

nonn,base

Author

Graeme McRae, Apr 17 2006

Status

approved