|
| |
|
|
A073058
|
|
Define s(1)={1,2}, s(2)={1,3} and s(3)={1}. For a finite sequence A={a_1, ..., a_n}, with elements in {1,2,3}, define t(A) to be the concatenation of A, s(a_1), s(a_2), ... and s(a_n). Start with the sequence {1,2,3} and repeatedly apply t; limiting sequence is shown.
|
|
24
| |
|
|
1, 2, 3, 1, 2, 1, 3, 1, 1, 2, 1, 3, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 3, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| A fractal sequence related to a sequence of Rauzy.
|
|
|
REFERENCES
| Vincent Canterini and Anne Siegel, Geometric Representations of Substitutions of Pisot Type.
|
|
|
MATHEMATICA
| s[1]={1, 2}; s[2]={1, 3}; s[3]={1}; t[a_] := Join[a, Flatten[s/@a]]; t[t[t[t[{1, 2, 3}]]]] (* Continue applying t for more terms *)
|
|
|
CROSSREFS
| Sequence in context: A075660 A190496 A193926 * A100336 A006376 A005680
Adjacent sequences: A073055 A073056 A073057 * A073059 A073060 A073061
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Aug 16 2002
|
| |
|
|
