FINDPRM (prime, sieve)