OFFSET
1,2
LINKS
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[GCD[w, Max[fpl[w]]], {w, 1, 256}]
PROG
(PARI)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 09 2003
STATUS
approved