program div
  implicit none
  integer(8) :: N, i, j, k, l, ans
  
  read(*,*) N

  i = 3
  j = 0
  l = 0
  k = N
  
  do while (mod(k,2) == 0)
     k = k / 2
     j = j + 1
  end do

  do while (j >= 0)
     l = l + 1
     j = j - l
  end do
  ans = l - 1
  
  do i = 3, N, 2
     j = 0
     do while (mod(k,i) == 0)
        k = k / i
        j = j + 1
     end do
     
     l = 0
     if (j == 0) then
        cycle
     else
        do while (j >= 0)
           l = l + 1
           j = j - l
        end do
        ans = ans + l - 1
     end if
  end do

  write(*,*) ans
  stop
  
end program div
