|
%I #4 Jun 02 2018 21:30:31
%S 1,1,0,1,1,0,1,2,0,1,1,0,1,1,0,1,2,0,1,1,0,1,0,0,1,2,0,1,1,0,1,1,0,1,
%T 2,0,1,1,0,1,1,0,1,2,0,1,1,0,1,0,0,1,2,0,1,1,0,1,1,0,1,2,0,1,1,0,1,2,
%U 0,1,2,0,1,1,0,1,0,0,1,2,0,1,1,0,1,1
%N Fixed point of the morphism 0->120, 1->110, 2->100.
%C This sequence is used to generate the anti-tribonacci sequence, A265389. The positions of 1 are also the positions of 0 in Stewart's choral sequence, A116178.
%H Clark Kimberling, <a href="/A305490/b305490.txt">Table of n, a(n) for n = 1..10000</a>
%e 1 -> 110 -> 110110120 -> ...
%t Nest[Flatten[# /. {0 -> {1, 2, 0}, 1 -> {1, 1, 0}, 2 -> {1, 0, 0}}] &, {0}, 9];
%Y Cf. A265389, A116178, A305495, A305496.
%K nonn,easy
%O 1,8
%A _Clark Kimberling_, Jun 02 2018
|
