3x+1问题，我不懂模拟这个的意义。。。

任取一个正整数，如果这个数是偶数，则除以二。如果是奇数，乘以3再加1。重复上述步骤，最后起始数都会变成1。这就是著名的科拉茨猜想。

其实很容易写这样一个模拟，但怎么证明我是完全不懂的

但是我不懂数学家研究这个是为了什么? 求高手科普下，各种猜想，证明的逻辑和目的。。。

Sub ft1()

'  Randomize
'  x = Int(1 + (100 - 1) * Rnd)
  ft2 (500)

End Sub



Function ft2(x)

    If x Mod 2 = 0 Then
      ft2 = x / 2
    Else
      ft2 = 3 * x + 1
    End If
  Debug.Print ft2
  Call ft2(ft2)
End Function