|
Search: id:A091297
|
|
|
| A091297 |
|
A fixed point of the morphism 0 ->02, 1 ->02, 2 ->11, starting from 0. |
|
+0
4
|
|
| 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 0
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
To construct the sequence : start from the Feigenbaum sequence A035263 = 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, ..., then change 1 -> 0, 2 and 0 -> 1, 1 . - DELEHAM Philippe (kolotoko(AT)wanadoo.fr), Apr 18 2004
|
|
FORMULA
|
a(n) = 0 iff n = A079523(k), a(n) = 1 iff n = A081706(2k) or n = 1 + A081706(2k), a(n) = 2 iff n = A036554(k) . a(2n-1) + a(2n) = 2 . a(2n-1) = (A065037(2n+1) - A065037(2n-1) - 2)/2.
|
|
MATHEMATICA
|
Nest[ Function[ l, {Flatten[(l /. {0 -> {0, 2}, 1 -> {0, 2}, 2 -> {1, 1}}) ]}], {0}, 7] (from Robert G. Wilson v Mar 03 2005)
|
|
CROSSREFS
|
Cf. A036554 A065037 A079523 A081706.
Sequence in context: A051632 A122821 A054009 this_sequence A166712 A035183 A054522
Adjacent sequences: A091294 A091295 A091296 this_sequence A091298 A091299 A091300
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
DELEHAM Philippe (kolotoko(AT)wanadoo.fr), Feb 24 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 03 2005
|
|
|
Search completed in 0.002 seconds
|
