OFFSET
1,2
EXAMPLE
For n=1 to 10 the ratios are 1, 1, 27/32, 1, 15/16, 27/32, 1701/2048, 1, 6561/8192, 15/16, so the low records are 1, 27/32, 1701/2048, 6561/8192, ...
MATHEMATICA
q=1; Collatz[n_]:=NestWhileList[If[EvenQ[#], #/2, 3 #+1]&, n, #>1&]; nn=5000; t={}; n=0; While[Length[t]<nn, n++; c=Collatz[n]; ev=Length[Select[c, EvenQ]]; od=Length[c]-ev-1; If[n*3^od/2^ev<q, Print[n, " ", od, " ", ev, " ", n*3^od/2^ev]; q=n*3^od/2^ev]]
PROG
(PARI) ht(n) = my(h, t); while(n>1, if(n%2, n=3*n+1; t++, n>>=1; h++)); return([h, t]);
lista(nn) = {m = 2; for (n=1, nn, v = ht(n); newm = n*3^v[2]/2^v[1]; if (newm < m, print1(denominator(newm), ", "); m = newm)); } \\ Michel Marcus, May 06 2018
CROSSREFS
KEYWORD
nonn,frac,more
AUTHOR
Michel Lagneau, May 06 2018
STATUS
approved