|
Search: id:A087226
|
|
|
| A087226 |
|
LCM of terms arising in fixed-point-list of Collatz function initiated at n. |
|
+0
3
|
|
| 1, 2, 240, 4, 80, 240, 1361360, 8, 12252240, 80, 194480, 240, 1040, 1361360, 4095840, 16, 17680, 12252240, 107158480, 80, 1344, 194480, 1365280, 240, 535792400, 1040, 44841486948146266934850832405421294927083491752830032389039800908293040266400
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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}]
|
|
CROSSREFS
|
Cf. A006370.
Sequence in context: A124046 A101146 A159280 this_sequence A071967 A024348 A006523
Adjacent sequences: A087223 A087224 A087225 this_sequence A087227 A087228 A087229
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 28 2003
|
|
|
Search completed in 0.002 seconds
|
