login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A224994 Least odd number d such that the Collatz (3x+1) iteration of d has the following property: if the length of the iteration is b and the maximum value occurs at c, the ratio c/b is 1/n. 1
1, 3, 5, 21, 13, 53, 67, 141, 93, 61, 37, 149, 101, 65, 261, 173, 693, 461, 305, 209, 813, 541, 2165, 1445, 961, 657, 2315, 1709, 1169, 4557, 3037, 2021, 3659, 5389, 3589, 2413, 5123, 2291, 4253, 2755, 7235, 7557, 5037, 3357, 10123, 8949, 5965, 3973, 15893 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
This sequence is the first column of the irregular triangle shown in A224537.
For 45 < n <= 300, the length the Collatz sequence of a(n) is 2n. - T. D. Noe, May 01 2013
LINKS
EXAMPLE
The Collatz iteration of 5 is {5, 16, 8, 4, 2, 1}, which has length 6. The maximum occurs at the second position. Note that 2/6 = 1/3. No number less than 5 has this property. Hence a(3) = 5.
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; nn = 50; t = Table[0, {nn}]; t[[1]] = 1; n = 1; While[Times @@ t == 0, n = n + 2; c = Collatz[n]; frac = Position[c, Max[c]][[1, 1]]/Length[c]; numer = Numerator[frac]; denom = Denominator[frac]; If[numer == 1 && denom <= nn && t[[denom]] == 0, t[[denom]] = n]]; t
CROSSREFS
Cf. A224537.
Sequence in context: A066902 A007363 A103991 * A321768 A331395 A086175
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 23 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 04:23 EDT 2024. Contains 371264 sequences. (Running on oeis4.)