Erzeuge eine Liste von Primzahlen bis zu einer bestimmten Anzahl

Ich versuche eine Liste von Primzahlen unter 1 Milliarde zu generieren. Ich versuche das, aber diese Art von Struktur ist ziemlich beschissen. Irgendwelche Vorschläge

a <- 1:1000000000
d <- 0
b <- for (i in a) {for (j in 1:i) {if (i %% j !=0) {d <- c(d,i)}}}