library(numbers)
primes <- Primes(250000)
answer <- primes[10001]