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

Question

我编写了这段代码，现在我想找到大于 x 的最小素数？例如，给定 4，我需要 5；给定 7，我需要 11。

my_number = function(n) {
    rangeOfNumbers = 2:(n-1)
    if(any(n%%rangeOfNumbers == 0)){
      return(FALSE)
    }
    else return(TRUE)
  }

Answer 1

这将是一个使用while 循环的选项，基于this function to find if a number is a prime number

first_prime <- function(n){

  is.prime <- function(n) {
    if (n == 2) {
      TRUE
    } else if (any(n %% 2:(n-1) == 0)) {
      FALSE
    } else { 
      TRUE
    }
  }
n <- n+1

while(is.prime(n) == FALSE) {
  n <- n+1
}
print(n)
}

> first_prime(10)
[1] 11
> first_prime(11)
[1] 13
> first_prime(12)
[1] 13
> first_prime(14)
[1] 17
> first_prime(20)
[1] 23