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,4

Links

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

Formula

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

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 *)

Prog

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

Crossrefs

Cf. A000045, A003188.

Sequence in context: A053440 A329724 A143332 * A212189 A114647 A234750

Adjacent sequences: A255916 A255917 A255918 * A255920 A255921 A255922

Keyword

nonn

Author

R. J. Mathar, Mar 11 2015

Status

approved