library(numbers)
answer <- sum(Primes(1, 2000000))