Function is_prime and is_prime_factor