このコードを作成しましたが、axよりも大きい最小の素数を見つけたいですか？たとえば、4の場合、5が必要です。7が与えられると、11が必要です。
my_number = function(n) {
rangeOfNumbers = 2:(n-1)
if(any(n%%rangeOfNumbers == 0)){
return(FALSE)
}
else return(TRUE)
}
これは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
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加