cp's OEIS Frontend

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.

%I A073058 #29 Jul 14 2018 06:11:48
%S A073058 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,
%T A073058 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,
%U A073058 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
%N 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.
%C A073058 A fractal sequence related to a sequence of Rauzy.
%H A073058 P. Arnoux and E. Harriss, <a href="http://www.ams.org/notices/201407/rnoti-p768.pdf">What is a Rauzy Fractal?</a>, Notices Amer. Math. Soc., 61 (No. 7, 2014), 768-770, also p. 704 and front cover.
%H A073058 Vincent Canterini and Anne Siegel, <a href="http://dx.doi.org/10.1090/S0002-9947-01-02797-0">Geometric Representations of Substitutions of Pisot Type</a>, Trans. Amer. Math. Soc. 353 (2001), 5121-5144.
%t A073058 Nest[ Flatten[ Join[#, # /. {1 -> {1, 2}, 2 -> {1, 3}, 3 -> {1}}]] &, {1, 2, 3},
%t A073058 4] (* _Robert G. Wilson v_, Jan 01 2017 *)
%Y A073058 Cf. A092782, A103684, A105083, A245553, A245554.
%K A073058 nonn
%O A073058 1,2
%A A073058 _Roger L. Bagula_, Aug 16 2002