import Data.Array

main = getLine >>= print . compute . read

compute :: Integer -> Integer
compute n = sum $ map (uncurry (*)) $ assocs arr
  where
    arr = accumArray (+) 1 (1,n) alist
    alist = [ (i,1) | k <- [2..n], i <- [k,k+k..n] ]
    