|
Search: id:A143250
|
|
|
| A143250 |
|
Sequence of sum of Gray code Binary digits for Fibonacci sequence A000045: a(n)=GrayCodeBinarySum[A000045(n)). |
|
+0
1
|
|
| 1, 1, 1, 3, 5, 1, 11, 21, 17, 59, 77, 9, 151, 317, 281, 879, 1507, 389, 5441, 5835, 4309, 31313, 18427, 1197, 69961, 71863, 68605, 423129, 354527, 83155, 1534501, 2633505, 1177835, 7573621, 9646897, 887751, 20771357, 38811817, 18203279, 110884035
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
REFERENCES
|
Weisstein, Eric W. "Gray Code." http : // mathworld.wolfram.com/GrayCode.html
|
|
FORMULA
|
a(n)=GrayCodeBinarySum[A000045(n)).
|
|
MATHEMATICA
|
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}]
|
|
CROSSREFS
|
Cf. A098957, A000045.
Sequence in context: A026253 A138259 A077021 this_sequence A084833 A069111 A021288
Adjacent sequences: A143247 A143248 A143249 this_sequence A143251 A143252 A143253
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 21 2008
|
|
|
Search completed in 0.002 seconds
|
