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,2

Links

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

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 *)

Crossrefs

Cf. A215022-A215025, A014417, A214248.

Sequence in context: A046017 A155909 A069815 * A162954 A357993 A129194

Adjacent sequences: A215022 A215023 A215024 * A215026 A215027 A215028

Keyword

nonn

Author

N. J. A. Sloane, Aug 03 2012

Extensions

More terms from Amiram Eldar, Oct 11 2019

Status

approved