OFFSET
1,2
COMMENTS
Parallel to A094716.
EXAMPLE
n=37: the trajectory is {37, 225, 3375, 196069, 86818724, 196068, 3374, 224, 36, 10, 4, 2, 1}, the peak is a[37]=86818724
MATHEMATICA
d[x_]:=d[x]=(1-Mod[x, 2])*Floor[N[x^(2/3), 50]] +Mod[x, 2]*Floor[N[x^(3/2), 50]]; d[1]=1; fd[x_]:=Delete[FixedPointList[d, x], -1] Table[Max[fd[w]], {w, 1, m}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 18 2004
STATUS
approved