OFFSET
1,2
MATHEMATICA
c[x_] := (1-Mod[x, 2])*(x/2)+Mod[x, 2]*(3*x+1); c[1]=1; fpl[x_] := Max[Delete[FixedPointList[c, x], -1]] t=Table[fpl[w], {w, 1, 15000}]; Table[Min[Flatten[Position[t, j]]], {j, 1, 256}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 11 2003
STATUS
approved