$\+=$_*`factor $_`=~/ $_/for 1..<>;print