A178168 Product of the numbers in the Collatz (3x+1) trajectory of n, including n.
1, 2, 153600, 8, 5120, 921600, 704889816350720000, 64, 2486851272085340160000, 51200, 4577206599680000, 11059200, 532480000, 9868457428910080000, 114523513552896000000000, 1024, 12238520320000, 44763322897536122880000
Offset: 1
Keywords
Examples
The Collatz iteration starting with 3 is 3, 10, 5, 16, 8, 4, 2, 1. The product of these numbers is 153600.
Links
- T. D. Noe, Table of n, a(n) for n=1..500
Programs
-
Mathematica
Collatz[n_] := NestWhileList[If[EvenQ[ # ], #/2, 3#+1] &, n, #>1 &]; Table[Times@@Collatz[n], {n, 100}]
Comments