%I #3 May 01 2013 21:06:46
%S 0,1,2,1,0,1,0,1,2,1,0,1,0,1,2,1,2,3,0,1,2,1,2,3,2,3,4,1,0,1,0,1,2,1,
%T 2,3,0,1,2,1,0,1,0,1,2,1,0,1,0,1,2,1,2,3,0,1,2,1,0,1,0,1,2,1,0,1,0,1,
%U 2,1,2,3,0,1,2,1,2,3,2,3,4,1,0,1,0,1,2,1,2,3,0,1,2,1,0,1,0,1,2,1,0,1,0,1,2
%N Let S_0 = [1]; for n>0 let S_n be obtained from S_{n-1} by applying the morphism t -> |t-1|,t,t+1; sequence gives limiting value of S_{2n+1} as n -> oo.
%e S_0 = [1]
%e S_1 = [0,1,2]
%e S_2 = [1,0,1,0,1,2,1,2,3]
%e S_3 = [0,1,2,1,0,1,0,1,2,1,0,1,0,1,2,1,2,3,0,1,2,1,2,3,2,3,4]
%e etc.
%t Nest[ Flatten[ # /. a_Integer -> {Abs[a - 1], a, a + 1}] &, {1}, 5]
%K nonn
%O 0,3
%A _Robert G. Wilson v_, Apr 05 2009
%E Edited by _N. J. A. Sloane_, Apr 07 2009
|