login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A223087 Trajectory of 80 under the map n-> A006368(n). 1
80, 120, 180, 270, 405, 304, 456, 684, 1026, 1539, 1154, 1731, 1298, 1947, 1460, 2190, 3285, 2464, 3696, 5544, 8316, 12474, 18711, 14033, 10525, 7894, 11841, 8881, 6661, 4996, 7494, 11241, 8431, 6323, 4742, 7113, 5335, 4001, 3001, 2251, 1688, 2532, 3798, 5697 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

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

LINKS

T. D. Noe, Table of n, a(n) for n = 1..10000

J. H. Conway, On unsettleable arithmetical problems, Amer. Math. Monthly, 120 (2013), 192-198.

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:=[80];

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

t1;

MATHEMATICA

t = {80}; 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]]}, {80}, 100] // Flatten (* Jean-Fran├žois Alcover, Mar 01 2019 *)

CROSSREFS

Cf. A006369, A006368, A182205.

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

Sequence in context: A039400 A044003 A062376 * A261549 A068140 A224547

Adjacent sequences:  A223084 A223085 A223086 * A223088 A223089 A223090

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Mar 22 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 12 21:22 EST 2019. Contains 329079 sequences. (Running on oeis4.)