Creating a vector within a loop in R

Question

I have created this loop to calculate the number of prime factors for 1000 numbers from 1,000,000,001 to 1,000,001,000. So I have 1000 data points for "sum" and for &