Generate a list of primes up to a certain number

Я пытаюсь создать список простых чисел меньше 1 миллиарда. Я пытаюсь это сделать, но такая структура довольно хреновая. Любые предложения ?

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