21/03/05 08:08:26.60 pi8gftnN.net
>>484
1000までの整数でn^4＋14が素数になる数を出してみると
f14 <- function(n) numbers::isPrime(n^4+14)
i=0
flg=f14(i)
re=NULL
for(i in 1:1000){
if(f14(i)) re=c(re,i)
i=1+i
}
re
[1] 165 195 255 405 435 465 555 885 975
>
９個あった。
21/03/05 08:08:26.60 pi8gftnN.net
>>484
1000までの整数でn^4＋14が素数になる数を出してみると
f14 <- function(n) numbers::isPrime(n^4+14)
i=0
flg=f14(i)
re=NULL
for(i in 1:1000){
if(f14(i)) re=c(re,i)
i=1+i
}
re
[1] 165 195 255 405 435 465 555 885 975
>
９個あった。