Create PrimeNumber.r