OFFSET
1,3
COMMENTS
Remarkably often, several consecutive terms are identical or close, showing closeness of peaks too: at n=107-111, a(n)=83-86.
If a(n)=1, then the peak is the start-value (per A166245).
It is conjectured that if peak/initial value is an integer then it equals 1.
LINKS
FORMULA
a(n) = floor(A025586(n)/n).
MATHEMATICA
c[x_] := (1-Mod[x, 2])*(x/2)+Mod[x, 2]*(3*x+1)c[1]=1; fpl[x_] := Delete[FixedPointList[c, x], -1] Table[Floor[Max[fpl[w]]/w//N], {w, 1, 256}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 11 2003
STATUS
approved