初学者求助。
Primes <- function(n){
p <- 2:n
i <- 1
while(p[i] <= sqrt(n))
{
p <- p[p %% p[i] != 0 | p==p[i]]
i <- i+1
}
print(p)
}
A<-Primes(1000)
i<-1
repeat{
if(A[i]+2 != A[i+1]){
i<-i+1
}else{
print(A[i])
i<-i+1
}
if(i>=length(A)-1){
break
}
}