login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A215025 Decimal equivalent of binary number in A215023. 5
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 (list; graph; refs; listen; history; text; internal format)
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 A129194 A300780

Adjacent sequences:  A215022 A215023 A215024 * A215026 A215027 A215028

KEYWORD

nonn,changed

AUTHOR

N. J. A. Sloane, Aug 03 2012

EXTENSIONS

More terms from Amiram Eldar, Oct 11 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 22 04:25 EDT 2019. Contains 328315 sequences. (Running on oeis4.)