用最简单的程序求1~n之间的所有质数，如何写程序？

11070

收藏 2011-04-12

如题，用最简单的程序求1~n之间的所有质数，如何写程序？请指教

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

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

全部回复

2011-4-12 09:45:00

primes3 <- function(n){
p <- 2:n
i <- 1
while (p[i] <= sqrt(n)) {
p <- p[p %% p[i] != 0 | p==p[i]]
i <- i+1
}
p
}

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

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

2011-4-12 11:01:02

thanks，very useful

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

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

2011-4-16 02:41:46

ss<-function(n){a<-1:n;b<-numeric(length(a));for (i in 3:n){if (all((a[i]%%a[2:(i-1)])>0)==1) a[i]->b[i]};d<-c(2,b[b>2]);d}
能不能在我的程序基础上
修改更为简洁点

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

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

2017-4-20 19:13:31

复制代码

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

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

分享