|
| |
|
|
A091297
|
|
A fixed point of the morphism 0 ->02, 1 ->02, 2 ->11, starting from 0.
|
|
3
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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: A122821 A054009 A176451 * A166712 A035183 A178101
Adjacent sequences: A091294 A091295 A091296 * 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
|
| |
|
|
