OFFSET
1,2
LINKS
EXAMPLE
n=9: list={9,28,14,7,22,11,34,17,52,26,13,40,20,10,5,16,8,4,2,1};
LCM = 2*2*2*2*3*3*5*7*11*13*17 = 12252240.
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[Apply[LCM, fpl[w]], {w, 1, 32}]
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; Table[LCM @@ Collatz[n], {n, 27}] (* T. D. Noe, May 15 2013 *)
PROG
(Haskell)
a087226 = foldl1 lcm . a070165_row -- Reinhard Zumkeller, May 16 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 28 2003
STATUS
approved