rstudio 공부중입니다

3부터 1000까지 소수(prime number)  구하는 코딩이 어떻게 될까요..?ㅠ


pn = function(a) {

  i <- 2

  while(i <- sqrt(a)) {

    if(a%%i == 0)

      return(F)

    i <- i+1

  }

  return(T)

}

for(i in 3:999) {

  if(pn(i)) {

    cat(i,'')

  }

}


이렇게 했는데 3, 4 두개밖에 안 나옵니다 ㅠ