OFFSET
1,2
COMMENTS
Row n of A070165 has the Collatz trajectory of n. It appears that all products are unique. This has been verified for all n < 10^6 and for the 12332052 values of n for which a(n) < 2^1081.
LINKS
T. D. Noe, Table of n, a(n) for n=1..500
EXAMPLE
The Collatz iteration starting with 3 is 3, 10, 5, 16, 8, 4, 2, 1. The product of these numbers is 153600.
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[ # ], #/2, 3#+1] &, n, #>1 &]; Table[Times@@Collatz[n], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, May 21 2010
STATUS
approved