program main
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int64):: n,i,j,ans=0


    read*, n

    do i=1,n
        j = n/i
        ans = ans + ((j*(j+1))/2)*i
    end do
    print'(i0)', ans
end program main