Create isPrime.R