|
| |
|
|
A087232
|
|
a(n) is the largest odd term in 3x+1 trajectory initiated at n; 3a(n)+1 gives the largest term: 3.A087232[n]+1=A025586[n].
|
|
4
| |
|
|
1, 1, 5, 1, 5, 5, 17, 1, 17, 5, 17, 5, 13, 17, 53, 1, 17, 17, 29, 5, 21, 17, 53, 5, 29, 13, 3077, 17, 29, 53, 3077, 1, 33, 17, 53, 17, 37, 29, 101, 5, 3077, 21, 65, 17, 45, 53, 3077, 5, 49, 29, 77, 13, 53, 3077, 3077, 17, 65, 29, 101, 53, 61, 3077, 3077, 1, 65, 33, 101, 17, 69
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| a(n)=3077 corresponds to peak=9232.
|
|
|
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] ofp[x_] := Part[fpl[x], Flatten[Position[OddQ[fpl[x]], True]]] Table[Max[ofp[w]], {w, 1, 256}]
|
|
|
CROSSREFS
| Cf. A025586.
Sequence in context: A143969 A198366 A162797 * A151780 A054244 A093562
Adjacent sequences: A087229 A087230 A087231 * A087233 A087234 A087235
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Sep 18 2003
|
| |
|
|
