|
| |
|
|
A284939
|
|
Fixed point of the morphism 0 -> 01, 1 -> 1101, starting with 0.
|
|
5
|
|
|
|
0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1
|
|
|
COMMENTS
|
The other fixed point is 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, ... - Michel Dekking, Jan 22 2018
|
|
|
LINKS
|
Clark Kimberling, Table of n, a(n) for n = 1..10000
Index entries for sequences that are fixed points of mappings
|
|
|
EXAMPLE
|
0 -> 01-> 011101 -> 01110111011101011101 -> ...
|
|
|
MATHEMATICA
|
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 0, 1}}] &, {0}, 6] (* A284939 *)
Flatten[Position[s, 0]] (* A080580 *)
Flatten[Position[s, 1]] (* A284941 *)
|
|
|
CROSSREFS
|
Cf. A080580, A284941.
Sequence in context: A060584 A324682 A098725 * A188260 A341625 A166486
Adjacent sequences: A284936 A284937 A284938 * A284940 A284941 A284942
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Clark Kimberling, Apr 18 2017
|
|
|
EXTENSIONS
|
Name clarified by Michel Dekking, Jan 22 2018
|
|
|
STATUS
|
approved
|
| |
|
|
