diff --git a/README.md b/README.md
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..2629d3bd1a0f224e62a5bf46c304453dfba531ee 100644
--- a/README.md
+++ b/README.md
@@ -0,0 +1,10 @@
+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)