Solution to the seventh Project Euler problem – 10001st prime - in R.

The seventh Project Euler problem - 10001st prime - is stated as follows. By listing the first six prime numbers: 2, 3, 5, 7, 11, and 13, we can see that the 6th prime is 13. What is the 10001st prime number?

```
isPrime <- function(n) {
if (n == 2 || n == 3) {
# Handle the edge cases 2 and 3.
return(TRUE)
} else if (n < 2 || n %% 2 == 0) {
# Check if n is less than 2 or equal to a multiple of 2.
return(FALSE)
} else {
# Factors come in pairs and one of the factors has
# to be smaller than the square root of N.
upper.limit <- floor(sqrt(n))
range <- seq(3, upper.limit)
# Check if N is divisible
d <- n %% (range)
# PRIME = Nothing in range is divisble by N.
# NOT PRIME = Something in range is divisible by N.
return(! 0%in%d)
}
}
# Init target prime, a counter and an empty vector.
target <- 10001
current <- 1
primes <- c()
# Find primes untill we have TARGET primes.
while (length(primes) < target) {
primes = if (isPrime(current)) c(primes, current) else primes
current = current + 1
}
# Print the prime we are looking for.
sprintf("The %sth prime is %s", target, primes[target])
```

- [project-euler] Project Euler Problem 17 - Number Letter Counts - solved with R
- [project-euler] Project Euler Problem 16 - Power Digit Sum - solved with Javascript
- [project-euler] Project Euler Problem 15 - Lattice Paths - solved with R
- [project-euler] Finding the 10001st prime with R
- [project-euler] Find longest Collatz sequence using Javascript
- [project-euler] Sum large numbers with Kotlin versus Javascript
- [tech-test] What is a binary tree and how to invert it using Kotlin
- [project-euler] Find Highly Divisible Triangular Numbers with Kotlin
- [project-euler] Find the Largest Product in a Grid with Rust
- [project-euler] Summation of the First Two Million Primes with Rust
- [project-euler] Finding the largest product in a series with Rust
- [project-euler] Finding the 10001st prime with Rust
- [js] The complete list of rational numbers with Stern-Brocot and Javascript
- [project-euler] Project Euler number six solved with Rust
- [project-euler] Smallest positive number that is evenly divisible by all of the numbers from 1 to 20 with Rust
- [project-euler] Finding the largest palindrome product with Rust
- [project-euler] Get the largest prime factor with Reason
- [project-euler] Find the sum of all even Fibonacci numbers below four million with OCaml
- [project-euler] Finding the sum of all multiples of 3 or 5 below 1000 with OCaml
- [project-euler] Special Pythagorean Triplet solved with Reason
- [personal] New Year's Resolution 2018