2 pfact - product of primes up to specified integer
10 return positive integer
13 Returns the product of primes p_i for which p_i <= n.
16 > for (i = 0; i <= 16; i++) print pfact(i),:;
17 1 1 2 6 6 30 30 210 210 210 210 2310 2310 30030 30030 30030 30030
23 NUMBER *qpfact(NUMBER *n)
24 void zpfact(ZVALUE z, ZVALUE *dest)