|
%I #7 Dec 07 2019 01:30:37
%S 1,2,1,3,1,2,1,1,2,1,3,1,2,1,2,1,3,1,2,1,1,2,1,3,1,2,1,3,1,2,1,1,2,1,
%T 3,1,2,1,2,1,3,1,2,1,1,2,1,3,1,2,1,1,2,1,3,1,2,1,2,1,3,1,2,1,1,2,1,3,
%U 1,2,1,3,1,2,1,1,2,1,3,1,2,1,2,1,3,1,2,1,1,2,1,3,1,2,1,2,1,3,1,2,1,1,2,1,3
%N Fixed point of the morphism 1->{1,2}, 2->{1,3}, 3->{1}.
%t Nest[Flatten[Join[ #, # /. {1 -> {1, 2}, 2 -> {1, 3}}]] &, {1}, 5] // Flatten
%Y Cf. A103684.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jul 27 2006
%E Name and data corrected by _Michel Dekking_, Dec 02 2019
|
