OFFSET
0,1
COMMENTS
The digraph of this substitution has an asymmetrical sink in it.
LINKS
F. M. Dekking, Recurrent Sets, Advances in Mathematics, vol. 44, no.1, April 1982, page 85, section 4.1
FORMULA
1->{2, 3, 2}, 2->{3, 1, 3}, 3->{4, 2, 4}, 4->{1, 4, 1}.
MATHEMATICA
s[1] = {2, 3, 2}; s[2] = {3, 1, 3}; s[3] = {4, 2, 4}; s[4] = {1, 4, 1}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; aa = p[5]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, May 09 2005
STATUS
approved