Trabalho numeros primos

README.md

+primos <- function(N) {
+  i <- 2:N
+  s <- c()
+  while( length(i) > 0 ) {
+    s <- c(s, i[1])
+    i <- i[-1][i[-1] %% i[1] > 0]
+  }
+  return(s)
+}
+primos(100)