%I A143250
%S A143250 1,1,1,3,5,1,11,21,17,59,77,9,151,317,281,879,1507,389,5441,5835,4309,
%T A143250 31313,18427,1197,69961,71863,68605,423129,354527,83155,1534501,2633505,
%U A143250 1177835,7573621,9646897,887751,20771357,38811817,18203279,110884035
%N A143250 Sequence of sum of Gray code Binary digits for Fibonacci sequence A000045: 
               a(n)=GrayCodeBinarySum[A000045(n)).
%D A143250 Weisstein, Eric W. "Gray Code." http : // mathworld.wolfram.com/GrayCode.html
%F A143250 a(n)=GrayCodeBinarySum[A000045(n)).
%t A143250 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}]
%Y A143250 Cf. A098957, A000045.
%Y A143250 Sequence in context: A026253 A138259 A077021 this_sequence A084833 A069111 
               A021288
%Y A143250 Adjacent sequences: A143247 A143248 A143249 this_sequence A143251 A143252 
               A143253
%K A143250 nonn,uned,probation
%O A143250 1,4
%A A143250 Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 
               21 2008