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