|
| |
|
|
A087261
|
|
a(n)=LCM[4n, A025586(4n)], least common multiple of 4n and the largest value in 3x+1 iteration list started at 4n.
|
|
2
| |
|
|
4, 8, 48, 16, 20, 24, 364, 32, 468, 40, 572, 48, 52, 56, 480, 64, 68, 72, 1672, 80, 84, 88, 3680, 96, 100, 104, 249264, 112, 116, 480, 286192, 128, 132, 136, 1120, 144, 148, 152, 11856, 160, 378512, 168, 8428, 176, 180, 184, 433904, 192, 196, 200, 11832, 208, 212
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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[LCM[4*w, Max[fpl[4*w]]], {w, 1, 256}]
|
|
|
CROSSREFS
| Cf. A025586, A033496-A087260.
Sequence in context: A189538 A183394 A002470 * A078236 A054881 A076687
Adjacent sequences: A087258 A087259 A087260 * A087262 A087263 A087264
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Sep 09 2003
|
| |
|
|
