暗号理論 – Rによる素数判定

Script
library(gmp)
start<-as.integer(100000)
end  <-as.integer(100100)
step<-1
if(start<=end){
  n<-as.integer(seq(start,end,by=step))
  notPrime<-n[sapply(n,isprime)==0]
  Prime<-n[sapply(n,isprime)==2]
  probPrime<-n[sapply(n,isprime)==1]
  cat("\n\n対象整数",length(n),"個\n",n)
  cat("\n\n素数",length(Prime),"個\n",Prime)
  cat("\n\n非素数",length(notPrime),"個\n",notPrime)
  cat("\n\nおそらく素数",length(probPrime),"個\n",probPrime)
  cat("\n\n最大素数",tail(Prime,1))
  cat("\n\n最小素数",head(Prime,1))
}
Result
対象整数 101 個
 100000 100001 100002 100003 100004 100005 100006 100007 100008 100009 100010 100011 100012 100013 100014 100015 100016 100017 100018 100019 100020 100021 100022 100023 100024 100025 100026 100027 100028 100029 100030 100031 100032 100033 100034 100035 100036 100037 100038 100039 100040 100041 100042 100043 100044 100045 100046 100047 100048 100049 100050 100051 100052 100053 100054 100055 100056 100057 100058 100059 100060 100061 100062 100063 100064 100065 100066 100067 100068 100069 100070 100071 100072 100073 100074 100075 100076 100077 100078 100079 100080 100081 100082 100083 100084 100085 100086 100087 100088 100089 100090 100091 100092 100093 100094 100095 100096 100097 100098 100099 100100

素数 6 個
 100003 100019 100043 100049 100057 100069

非素数 95 個
 100000 100001 100002 100004 100005 100006 100007 100008 100009 100010 100011 100012 100013 100014 100015 100016 100017 100018 100020 100021 100022 100023 100024 100025 100026 100027 100028 100029 100030 100031 100032 100033 100034 100035 100036 100037 100038 100039 100040 100041 100042 100044 100045 100046 100047 100048 100050 100051 100052 100053 100054 100055 100056 100058 100059 100060 100061 100062 100063 100064 100065 100066 100067 100068 100070 100071 100072 100073 100074 100075 100076 100077 100078 100079 100080 100081 100082 100083 100084 100085 100086 100087 100088 100089 100090 100091 100092 100093 100094 100095 100096 100097 100098 100099 100100

おそらく素数 0 個
 

最大素数 100069

最小素数 100003