A255919 Gray code of Fibonacci(n).

0, 1, 1, 3, 2, 7, 12, 11, 31, 51, 44, 117, 216, 157, 453, 851, 566, 1315, 3860, 6271, 5979, 16291, 26552, 22537, 61360, 112537, 79657, 229603, 439754, 275695, 715580, 2019251, 3253127, 3089427, 8160916, 13281965, 9582952, 29937989, 58607677, 36145651, 85311918

Offset: 0

Author

R. J. Mathar, Mar 11 2015

Keywords

• nonn

Crossrefs

Cf. A000045, A003188.

Programs

Maple

A255919 := proc(n)
    A003188(combinat[fibonacci](n)) ;
end proc:
seq(A255919(n),n=0..40) ;

Mathematica

GrayCode[n_] := BitXor[n, Floor[n/2]]; Table[ GrayCode[ Fibonacci[ n]], {n, 0, 40}] (* Robert G. Wilson v, Mar 09 2015 *)

PARI

A255919(n)=my(f=fibonacci(n)); bitxor(f, f\2); \\ Joerg Arndt, Mar 10 2015

Formula

a(n) = A003188(A000045(n)).