This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A215024 Decimal equivalent of binary number in A215022. 4
 0, 1, 4, 5, 18, 16, 17, 20, 21, 74, 72, 73, 66, 64, 65, 68, 69, 82, 80, 81, 84, 85, 298, 296, 297, 290, 288, 289, 292, 293, 266, 264, 265, 258, 256, 257, 260, 261, 274, 272, 273, 276, 277, 330, 328, 329, 322, 320, 321, 324, 325, 338, 336, 337, 340, 341, 1194 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 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]; Array[a, 100, 0] (* Amiram Eldar, Oct 15 2019 *) PROG (PARI) a(n)=if(n<2, return(n)); my(s=1, k=1, v); while(s 15. Amiram Eldar, Oct 15 2019] CROSSREFS Cf. A215022-A215025, A014417, A214248. Sequence in context: A010361 A327683 A060289 * A066879 A276091 A258410 Adjacent sequences:  A215021 A215022 A215023 * A215025 A215026 A215027 KEYWORD nonn,base,changed AUTHOR N. J. A. Sloane, Aug 03 2012 EXTENSIONS Data corrected by 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.

Last modified October 20 16:12 EDT 2019. Contains 328268 sequences. (Running on oeis4.)