

A284772


Fixed point of the morphism 0 > 01, 1 > 0010.


3



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



OFFSET

1


LINKS



FORMULA



EXAMPLE

0 > 01> 010010 > 0100100101001001 > ...


MATHEMATICA

s = Nest[Flatten[# /. {0 > {0, 1}, 1 > {0, 0, 1, 0}}] &, {0}, 6] (* this sequence *)
Flatten[Position[s, 0]] (* A284773 *)
Flatten[Position[s, 1]] (* A284774 *)


CROSSREFS



KEYWORD

nonn,easy


AUTHOR



STATUS

approved



