This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A143250 Reverse binary expansion of the Fibonacci numbers. 0
 1, 1, 1, 3, 5, 1, 11, 21, 17, 59, 77, 9, 151, 317, 281, 879, 1507, 389, 5441, 5835, 4309, 31313, 18427, 1197, 69961, 71863, 68605, 423129, 354527, 83155, 1534501, 2633505, 1177835, 7573621, 9646897, 887751, 20771357, 38811817, 18203279, 110884035 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,4 COMMENTS Old name was "Sequence of sum of Gray code Binary digits for Fibonacci sequence A000045: a(n) = GrayCodeBinarySum(A000045(n))". LINKS FORMULA a(n) = Decimal(reverse(Binary(A000045(n)))). MATHEMATICA GrayCodeList[k_] := Module[{b = IntegerDigits[k, 2], i}, Do[ If[b[[i - 1]] == 1, b[[i]] = 1 - b[[i]]], {i, Length[b], 2, -1} ]; b ]; a[n_] = GrayCodeList[Fibonacci[n]]; a0 = Table[Sum[a[n][[m + 1]]*2^m, {m, 0, Length[a[n]] - 1}], {n, 1, 200}] Table[FromDigits[Reverse[IntegerDigits[Fibonacci[n], 2]], 2], {n, 40}] (* Bruno Berselli, May 01 2013 *) PROG (PARI) a(n) = {my(v=binary(fibonacci(n)), s); forstep(i=#v, 1, -1, s+=s+v[i]); return (s); } \\ Michel Marcus, May 01 2013 (MAGMA) [Seqint(Reverse(Intseq(Fibonacci(n), 2)), 2): n in [1..40]]; // Bruno Berselli, May 01 2013 CROSSREFS Cf. A000045, A030101, A098957. Sequence in context: A259182 A138259 A077021 * A221494 A174883 A084833 Adjacent sequences:  A143247 A143248 A143249 * A143251 A143252 A143253 KEYWORD nonn,base AUTHOR Roger L. Bagula and Gary W. Adamson, Oct 21 2008 EXTENSIONS Edited and new name by Michel Marcus, May 01 2013 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 September 20 01:58 EDT 2019. Contains 327207 sequences. (Running on oeis4.)