在r中的随机x之后找到一个质数

find_next_prime <- function(x) {
  is_prime <- function(n) {
    if (n <= 1) {
      return(FALSE)
    }
    for (i in 2:sqrt(n)) {
      if (n %% i == 0) {
        return(FALSE)
      }
    }
    return(TRUE)
  }
  
  next_prime <- x + 1
  while (!is_prime(next_prime)) {
    next_prime <- next_prime + 1
  }
  
  return(next_prime)
}

set.seed(123)  # 设置随机种子，保证结果可复现
random_number <- sample(1:100, 1)  # 生成一个1到100之间的随机数
next_prime_number <- find_next_prime(random_number)
print(next_prime_number)