Create prime.factors.R