Generar una lista de primos hasta cierto número
Estoy tratando de generar una lista de números primos por debajo de mil millones. Estoy intentando esto, pero este tipo de estructura es bastante mala. ¿Alguna sugerencia?
a <- 1:1000000000
d <- 0
b <- for (i in a) {for (j in 1:i) {if (i %% j !=0) {d <- c(d,i)}}}