Speedup for pn_primorial