Create is.prime.R