найти простое число после случайного х в г

Question

Я сделал этот код, и теперь я хочу найти наименьшее простое число больше, чем топор?Например, учитывая 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, основанный на этой функции для определения, является ли число простым числом

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