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,2

Links

Table of n, a(n) for n=1..50.

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

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}]

Crossrefs

Cf. A025586, A033496, A087261.

Sequence in context: A368193 A005814 A177190 * A195876 A326778 A083251

Adjacent sequences: A087256 A087257 A087258 * A087260 A087261 A087262

Keyword

nonn

Author

Labos Elemer, Sep 09 2003

Status

approved