A255919 - OEIS

%I #8 Mar 11 2015 09:39:38

%S 0,1,1,3,2,7,12,11,31,51,44,117,216,157,453,851,566,1315,3860,6271,

%T 5979,16291,26552,22537,61360,112537,79657,229603,439754,275695,

%U 715580,2019251,3253127,3089427,8160916,13281965,9582952,29937989,58607677,36145651,85311918

%N Gray code of Fibonacci(n).

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

%p A255919 := proc(n)

%p     A003188(combinat[fibonacci](n)) ;

%p end proc:

%p seq(A255919(n),n=0..40) ;

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

%o (PARI) A255919(n)=my(f=fibonacci(n)); bitxor(f, f\2); \\ _Joerg Arndt_, Mar 10 2015

%Y Cf. A000045, A003188.

%K nonn

%O 0,4

%A _R. J. Mathar_, Mar 11 2015