program d172

integer :: i, j, n, m
integer :: p(2:10000000)
integer(16) :: k, z, f

p(:) = 1
m = 1
z = 0

read *, n

do while (n > 1)
 do i = 2, n
 if (mod(n,i) == 0) then
  p(i) = p(i) + 1
  n = n / p(i)
  if(i > m) then
   m = i
  end if
  cycle
 end if
 end do
end do

do i = 1, n
 do j = 2, m
  f = f * p(j)
 end do
 k = f * i
 z = z + k
end do

print *, z

end program d172