|
|
A223086
|
|
Trajectory of 64 under the map n-> A006368(n).
|
|
2
|
|
|
64, 96, 144, 216, 324, 486, 729, 547, 410, 615, 461, 346, 519, 389, 292, 438, 657, 493, 370, 555, 416, 624, 936, 1404, 2106, 3159, 2369, 1777, 1333, 1000, 1500, 2250, 3375, 2531, 1898, 2847, 2135, 1601, 1201, 901, 676, 1014, 1521, 1141, 856, 1284, 1926, 2889
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
It is conjectured that this trajectory does not close on itself.
|
|
LINKS
|
|
|
MAPLE
|
f:=n-> if n mod 2 = 0 then 3*n/2 elif n mod 4 = 1 then (3*n+1)/4 else (3*n-1)/4; fi;
t1:=[64];
for n from 1 to 100 do t1:=[op(t1), f(t1[nops(t1)])]; od:
t1;
|
|
MATHEMATICA
|
t = {64}; While[n = t[[-1]]; s = If[EvenQ[n], 3 n/2, Round[3 n/4]]; Length[t] < 100 && ! MemberQ[t, s], AppendTo[t, s]]; t (* T. D. Noe, Mar 22 2013 *)
SubstitutionSystem[{n_ :> If[EvenQ[n], 3n/2, Round[3n/4]]}, {64}, 100] // Flatten (* Jean-François Alcover, Mar 01 2019 *)
|
|
CROSSREFS
|
Trajectories under A006368 and A006369: A180853, A217218, A185590, A180864, A028393, A028394, A094328, A094329, A028396, A028395, A217729, A182205, A223083-A223088, A185589, A185590.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|