open System

let sum n : int64 = n*(n+int64(1))/int64(2)

let mutable ans = int64(0)

let n = Console.ReadLine() |> int

for i = 1 to n do
    ans <- ans + int64(i)*sum(int64(n/i))

Console.Write(ans)