|
%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
|
