用R语言程序编写3. 日本数学家角谷提出一个著明的猜想：任何一个大于 1的自然数经过如下的有限步运算，最后结果为1 （1）如果是偶数，将其除以2；（2）如过是奇数，将其乘以3，再加上1

角谷猜想，也称为“3n+1”猜想或“Collatz 猜想”，是一个关于整数序列的著名未解决问题。它规定：对于任意一个正整数 n，如果它是偶数，则将它除以2；如果它是奇数，则将其乘以3并加1。这个过程不断重复，直到最终得到数字1为止。

例如，如果我们从数字5开始：
1. 5是奇数，所以我们做3*5+1 = 16
2. 16是偶数，所以我们除以2得到8
3. 8是偶数，除以2得4
4. 4是偶数，除以2得2
5. 2是偶数，除以2得1

所有大于1的自然数理论上都能通过这样的规则达到1。然而，尽管简单，这个猜想至今仍未得到证明，也没有找到反例。在R语言中，你可以编写一个函数来模拟这个操作：

collatz_sequence <- function(n) {
  while (n != 1) {
    if (n %% 2 == 0) {
      n <- n / 2
    } else {
      n <- n * 3 + 1
    }
    print(n)
  }
}

# 示例：计算5的 Collatz 序列
collatz_sequence(5)

运行这个函数会打印出给定数的 Collatz 序列，直至达到1。