
Imports System.Console
Module Module1
    Sub Main()
        Dim n As Integer = ReadLine()
        Dim ans As Int64
        Dim y As Int64
        For i = 1 To n
            y = n \ i
            ans += i * (y + 1) * y / 2
        Next
        WriteLine(ans)
    End Sub
End Module
