A143250 Reverse binary expansion of the Fibonacci numbers.

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

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

Table of n, a(n) for n=1..40.

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: A138259 A077021 A344437 * 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