|
%I #13 Nov 09 2023 11:47:19
%S 1,2,3,4,1,2,3,1,2,3,4,1,2,3,4,1,2,3,1,2,3,4,1,2,3,1,2,3,4,1,2,3,4,1,
%T 2,3,1,2,3,4,1,2,3,4,1,2,3,1,2,3,4,1,2,3,1,2,3,4,1,2,3,4,1,2,3,1,2,3,
%U 4,1,2,3,1,2,3,4,1,2,3,4,1,2,3,1,2,3,4,1,2,3,4,1,2,3,1,2,3,4,1,2
%N Fixed point of the morphism 1 -> 12, 2 -> 3, 3 -> 4, 4 -> 123.
%H Rémy Sigrist, <a href="/A309198/b309198.txt">Table of n, a(n) for n = 0..15126</a>
%H M. Dekking, <a href="https://arxiv.org/abs/1906.08437">Base phi representations and golden mean beta-expansions</a>, arXiv:1906.08437 [math.NT], June 2019.
%t Nest[Flatten[ReplaceAll[#,{1->{1,2},2->3,3->4,4->{1,2,3}}]]&,{1},10] (* _Paolo Xausa_, Nov 09 2023 *)
%o (PARI) M = [[1,2], [3], [4], [1,2,3]]; s = [1]; for (k=1, 100, while (k>#s, s=concat(apply(d -> M[d],s))); print1 (s[k] ", ")) \\ _Rémy Sigrist_, Jul 25 2019
%Y See A308898 for another version.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jul 24 2019
|
