read N

nums=`echo $N | awk '{for(i=2;i<=sqrt($1);i++) if($N%i==0) print i;}' | tr "\n " " "`

cnt=0
for z in `echo $nums`; do
        [ $(echo $z | factor | cut -d\  -f2- | tr " " "\n"  | uniq | grep -c ^) = 1 ] || continue;
#       echo $N,$z
        [ `echo $(($N%$z))` -eq 0 ] || continue;
        N=$(($N/$z));
        cnt=$((cnt+1))
done
echo $cnt