OFFSET
1,4
COMMENTS
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
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