A215025 Decimal equivalent of binary number in A215023.

0, 2, 9, 8, 10, 37, 36, 33, 32, 34, 41, 40, 42, 149, 148, 145, 144, 146, 133, 132, 129, 128, 130, 137, 136, 138, 165, 164, 161, 160, 162, 169, 168, 170, 597, 596, 593, 592, 594, 581, 580, 577, 576, 578, 585, 584, 586, 533, 532, 529, 528, 530, 517, 516, 513, 512

Offset: 0

Author

N. J. A. Sloane, Aug 03 2012

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A215022-A215025, A014417, A214248.

Programs

Mathematica

ind[n_] := Floor[Log[Abs[n]*Sqrt[5] + 1/2]/Log[GoldenRatio]]; f[1] = 1; f[n_] := If[n > 0, i = ind[n - 1]; If[EvenQ[i], i++]; i, i = ind[-n]; If[OddQ[i], i++]; i]; a[n_] := Module[{k = n, s = 0}, While[k != 0, i = f[k]; s += 2^(i - 1); k -= Fibonacci[-i]]; s]; Table[a[n], {n, 0, -100, -1}] (* Amiram Eldar, Oct 15 2019 *)

Extensions

More terms from Amiram Eldar, Oct 11 2019