

A284948


1limiting word of the morphism 0 > 10, 1 > 00


3



1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1


COMMENTS

Consider iterations of the morphism: 0 > 10 > 0010 > 10100010 > 0010001010100010 > ... There are two limiting words, one of which has initial term 1 and the other, 0. The former is the 1limiting word, and the latter is obtained by prepending 0 to the former.


LINKS

Clark Kimberling, Table of n, a(n) for n = 1..10000


MATHEMATICA

s = Nest[Flatten[# /. {0 > {1, 0}, 1 > {0, 0}}] &, {0}, 7] (* A284948 *)
u = Flatten[Position[s, 0]] (* A171946 *)
v = Flatten[Position[s, 1]] (* A171947 *)


CROSSREFS

Cf. A171946, A171947.
Sequence in context: A266174 A285142 A267525 * A266282 A228747 A285162
Adjacent sequences: A284945 A284946 A284947 * A284949 A284950 A284951


KEYWORD

nonn,easy


AUTHOR

Clark Kimberling, Apr 18 2017


STATUS

approved



