%I #10 Dec 24 2022 05:01:48
%S 6,1,2,3,4,5,6,2,3,4,5,6,1,2,3,4,5,6,3,4,5,6,1,2,3,4,5,6,2,3,4,5,6,1,
%T 2,3,4,5,6,4,5,6,1,2,3,4,5,6,2,3,4,5,6,1,2,3,4,5,6,3,4,5,6,1,2,3,4,5,
%U 6,2,3,4,5,6,1,2,3,4,5,6,5,6,1,2,3,4,5,6,2,3,4,5,6,1,2,3,4,5,6,3,4,5,6,1,2
%N Limiting word of the substitution 1->{2}, 2->{3}, 3->{4}, 4->{5}, 5->{6}, 6->{1, 2, 3, 4, 5, 6} with axiom 1.
%t s[1] = {2}; s[2] = {3}; s[3] = {4}; s[4] = {5}; s[5] = {6}; s[6] = {1, 2, 3, 4, 5, 6};
%t t[a_] := Flatten[s /@ a];
%t p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]
%t aa = p[11]
%K nonn,easy,less
%O 0,1
%A _Roger L. Bagula_, May 13 2005