cp's OEIS Frontend

A317954 Fixed point of the morphism 1 -> 12, 2 -> 13, 3 -> 14, 4 -> 1, starting from a(1) = 1.

%I A317954 #17 Jan 02 2019 23:13:53
%S A317954 1,2,1,3,1,2,1,4,1,2,1,3,1,2,1,1,2,1,3,1,2,1,4,1,2,1,3,1,2,1,2,1,3,1,
%T A317954 2,1,4,1,2,1,3,1,2,1,1,2,1,3,1,2,1,4,1,2,1,3,1,2,1,3,1,2,1,4,1,2,1,3,
%U A317954 1,2,1,1,2,1,3,1,2,1,4,1,2,1,3,1,2,1,2,1,3,1,2,1,4,1,2
%N A317954 Fixed point of the morphism 1 -> 12, 2 -> 13, 3 -> 14, 4 -> 1, starting from a(1) = 1.
%H A317954 Robert Israel, <a href="/A317954/b317954.txt">Table of n, a(n) for n = 1..10000</a>
%p A317954 A:= [1]:
%p A317954 for n from 1 while nops(A) < 1000 do
%p A317954   A:= subs([1=(1,2),2=(1,3),3=(1,4),4=1],A)
%p A317954 od:
%p A317954 A; # _Robert Israel_, Aug 21 2018
%t A317954 Nest[Flatten[#/.{0 -> {0, 1}, 1 -> {1, 2}, 2 -> {2, 0}}] &, {0}, 7] (* _G. C. Greubel_, Jan 02 2019 *)
%Y A317954 Cf. A003849, A092782, A100619, A317955.
%K A317954 nonn
%O A317954 1,2
%A A317954 _N. J. A. Sloane_ and _Doron Zeilberger_, Aug 21 2018