|
%I #12 Nov 07 2016 08:32:12
%S 4,1,2,2,2,1,2,2,2,1,2,2,2,1,2,2,2,2,3,4,4,4,3,4,4,4,3,4,4,4,2,3,4,4,
%T 4,3,4,4,4,3,4,4,4,2,3,4,4,4,3,4,4,4,3,4,4,4,1,2,2,2,2,3,4,4,4,3,4,4,
%U 4,3,4,4,4,2,3,4,4,4,3,4,4,4,3,4,4,4,2,3,4,4,4,3,4,4,4,3,4,4,4,1,2,2,2,2,3
%N Fixed point of the morphism 1->4, 2->1222, 3->2, 4->3444, applied 4*k times to 4.
%F 1->{4}, 2->{1, 2, 2, 2}, 3->{2}, 4->{3, 4, 4, 4}.
%t s[1] = {4}; s[2] = {1, 2, 2, 2}; s[3] = {2}; s[4] = {3, 4, 4, 4}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[5]
%Y Cf. A001906, A006190.
%K nonn,easy,less
%O 0,1
%A _Roger L. Bagula_, May 29 2005
%E New name from _Joerg Arndt_, Nov 07 2016
|
