求助如何求质数？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

要求：
       studID <- 2017110000       set.seed(studID)       n <- 10000       num <- sample(n, 1:100000, replace=TRUE)编写函数，将其命名为 findPrime，可以用来查验以上 num物件中质数的数量， 并由大到小进行排序，返回前第 17,153,2349 个质数(注意:函数要同时能返回 质数的数量和第 17,153,2349 个质数质数的物件。


我不太懂要怎么求这样集合中的质数，在网上经过搜索，大致写了这样两种，但他们的结果感觉都不对。。。求助应该要怎么做呀？？


【第一种】发现这样出来的结果不是质数。。。

studID <- 2017110000

set.seed(studID)

n <- 10000

num <- sample(size=n,1:100000,replace=TRUE)

findPrime <- function(num){

        p <- 2:num

        i <- 1

        while(p<=sqrt(num)){

                p<-p[p%%p!=0|p==p]

                i<-i+1

        }

        a <- sort(p[length(p):0],decreasing=TRUE)

        out <- list(length(p),c(a[17],a[153],a[2349]))

        return(out)

}

findPrime(num)

【第二种】发现这样也不全是质数。。。

studID <- 2017110000

set.seed(studID)

n <- 10000

num <- sample(size=n,1:100000,replace=TRUE)

findPrime <- function(num){

        out <- NULL

        for(i in 2:num){

                for(j in 2:(i-1)){

                        if(i%%j==0){

                                break

                                }

                        else if((i%%j!=0)&(j==(i-1))){

                                out <- c(out,num)

                                a <- sort(out,decreasing=TRUE)

                        }

                }

        }

        return(list(length(out),c(a[17],a[153],a[2349])))

}

findPrime(num)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：DID stu

1. fun=function(x){
   
2.   n=c()
   
3.   i=2
   
4.   r=x
   
5.   while(prod(n)!=x){
   
6.     if(!r%%i) {n=c(n,i);r=r/i;i=1}
   
7.     i=i+1
   
8.   }
   
9.   n
   
10. }
    
11. 
    
12. fun(72)
    
13. [1] 2 2 2 3 3

复制代码

caozhaowen 发表于 2020-4-1 00:03

请问这是什么呀？我没有看懂...&#128514;&#128514;&#128514;

mocilou 发表于 2020-4-3 21:37
请问这是什么呀？我没有看懂...&#128514;&#128514;&#128514;

基本的求质数的方法，然后可根据你的要求，求解你的问题。