Gere uma lista de números primos até um determinado número
Estou tentando gerar uma lista de números primos abaixo de 1 bilhão. Estou tentando isso, mas esse tipo de estrutura é uma merda. Alguma sugestão?
a <- 1:1000000000
d <- 0
b <- for (i in a) {for (j in 1:i) {if (i %% j !=0) {d <- c(d,i)}}}