$n=<>+0;$\+=$_ for grep/: \d+$/,`seq $n|factor`;print