A087259 a(n) = lcm(n, A025586(n)), least common multiple of n and largest value in 3x+1 iteration list started at n.

1, 2, 48, 4, 80, 48, 364, 8, 468, 80, 572, 48, 520, 364, 480, 16, 884, 468, 1672, 20, 1344, 572, 3680, 24, 2200, 520, 249264, 364, 2552, 480, 286192, 32, 3300, 884, 1120, 468, 4144, 1672, 11856, 40, 378512, 1344, 8428, 572, 6120, 3680, 433904, 48, 7252, 2200

Offset: 1

Author

Labos Elemer, Sep 09 2003

Keywords

• nonn

Links

• Index entries for sequences related to 3x+1 (or Collatz) problem

Crossrefs

Cf. A025586, A033496, A087261.

Programs

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[w, Max[fpl[w]]], {w, 1, 256}]