A223084 - OEIS

%I #16 Mar 01 2019 09:25:01

%S 80,107,143,191,255,170,227,303,202,269,359,479,639,426,284,379,505,

%T 673,897,598,797,1063,1417,1889,2519,3359,4479,2986,3981,2654,3539,

%U 4719,3146,4195,5593,7457,9943,13257,8838,5892,3928,5237,6983,9311,12415,16553,22071

%N Trajectory of 80 under the map n-> A006369(n).

%C It is conjectured that this trajectory does not close on itself.

%H T. D. Noe, <a href="/A223084/b223084.txt">Table of n, a(n) for n = 1..10000</a>

%H J. H. Conway, <a href="http://www.jstor.org/stable/10.4169/amer.math.monthly.120.03.192">On unsettleable arithmetical problems</a>, Amer. Math. Monthly, 120 (2013), 192-198.

%p f:=proc(N) if N mod 3 = 0 then 2*(N/3); elif N mod 3 = 2 then 4*((N+1)/3)-1; else 4*((N+2)/3)-3; fi; end;

%p t1:=[80];

%p for n from 1 to 100 do t1:=[op(t1),f(t1[nops(t1)])]; od:

%p t1;

%t t = {80}; While[n = t[[-1]]; s = Switch[Mod[n, 3], 0, 2*n/3, 1, (4*n - 1)/3, 2, (4*n + 1)/3]; Length[t] < 100 && ! MemberQ[t, s], AppendTo[t, s]]; t (* _T. D. Noe_, Mar 22 2013 *)

%t SubstitutionSystem[{n_ :> Switch[Mod[n, 3], 0, 2n/3, 1, (4n - 1)/3, _, (4n + 1)/3]}, {80}, 60] // Flatten (* _Jean-François Alcover_, Mar 01 2019 *)

%Y Cf. A006369, A006368, A182205.

%Y Trajectories under A006368 and A006369: A180853, A217218, A185590, A180864, A028393, A028394, A094328, A094329, A028396, A028395, A217729, A182205, A223083-A223088, A185589, A185590.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Mar 22 2013