初学者求助。
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
  }
}