[what] refine function: prime_factor
[what] add function: prime_factor_p
[what] refine function: profile