|
%I #16 Jun 17 2015 09:15:32
%S 1,4,2,1,4,1,3,4,2,1,3,2,1,4,2,1,4,1,3,4,1,4,2,1,3,2,4,3,4,1,3,4,2,1,
%T 3,2,1,4,2,1,3,2,4,3,2,1,3,2,1,4,2,1,4,1,3,4,2,1,3,2,1,4,2,1,4,1,3,4,
%U 1,4,2,1,3,2,4,3,4,1,3,4,1,4,2,1,4,1,3,4,2,1,3,2,1,4,2,1,3,2,4,3,2,1,3,2,4
%N Fixed point of morphism 1->{1, 4, 2, 1}, 2->{2, 1, 3, 2}, 3->{3, 2, 4, 3}, 4->{4, 1, 3, 4}.
%H F. M. Dekking, <a href="http://dx.doi.org/10.1016/0001-8708(82)90066-4">Recurrent sets</a>, Advances in Mathematics, vol. 44, no. 1 (1982), 78-104; page 85, section 4.1.
%F a(4n-3) = a(4n) = a(n).
%t s[1] = {1, 4, 2, 1}; s[2] = {2, 1, 3, 2}; s[3] = {3, 2, 4, 3}; s[4] = {4, 1, 3, 4}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; aa = p[4]
%K nonn
%O 0,2
%A _Roger L. Bagula_, May 04 2005
|
