|
Search: id:A073058
|
|
|
| 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. |
|
+0
27
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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: A078711 A076423 A075660 this_sequence A100336 A006376 A005680
Adjacent sequences: A073055 A073056 A073057 this_sequence A073059 A073060 A073061
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Aug 16 2002
|
|
|
Search completed in 0.002 seconds
|
