cp's OEIS Frontend

A105203 Trajectory of 1 under the morphism f: 1->{1,2,1}, 2->{2,3,2}, 3->{3,1,3}.

%I A105203 #15 Aug 12 2017 13:03:10
%S A105203 1,2,1,2,3,2,1,2,1,2,3,2,3,1,3,2,3,2,1,2,1,2,3,2,1,2,1,2,3,2,3,1,3,2,
%T A105203 3,2,3,1,3,1,2,1,3,1,3,2,3,2,3,1,3,2,3,2,1,2,1,2,3,2,1,2,1,2,3,2,3,1,
%U A105203 3,2,3,2,1,2,1,2,3,2,1,2,1,2,3,2,3,1,3,2,3,2,3,1,3,1,2,1,3,1,3,2,3,2,3,1,3
%N A105203 Trajectory of 1 under the morphism f: 1->{1,2,1}, 2->{2,3,2}, 3->{3,1,3}.
%H A105203 Antti Karttunen, <a href="/A105203/b105203.txt">Table of n, a(n) for n = 0..19682</a>
%H A105203 F. M. Dekking, <a href="http://dx.doi.org/10.1016/0001-8708(82)90066-4">Recurrent sets</a>, Advances in Mathematics, vol. 44, no. 1 (1982), 78-104; page 96, section 4.10.
%H A105203 <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>
%F A105203 a(0) = 1; and for n > 1, a(n) = A105202(n+A003462(1+A062153(n))). - _Antti Karttunen_, Aug 12 2017
%t A105203 Nest[ Flatten[ # /. {1 -> {1, 2, 1}, 2 -> {2, 3, 2}, 3 -> {3, 1, 3}}] &, {1}, 5] (* _Robert G. Wilson v_, Apr 12 2005 *)
%o A105203 (Scheme) (define (A105203 n) (if (zero? n) 1 (A105202 (+ n (A003462 (+ 1 (A062153 n))))))) ;; _Antti Karttunen_, Aug 12 2017
%Y A105203 Cf. A003462, A062153, A073058, A105141, A105202.
%K A105203 nonn
%O A105203 0,2
%A A105203 _Roger L. Bagula_, Apr 09 2005
%E A105203 More terms from _Robert G. Wilson v_, Apr 12 2005