main = do
  li <- getLine
  let n = read li
  print $ compute n

compute :: Int -> Int
compute n = sum [ div n1 a | a <- [1..n1] ]
  where n1 = n - 1

{-
0<a,b,c
a*b+c==n
1<=c<nについてn-cの因数の数を数えるのは辛い。
1<=a<nについて、a*b<nとなるbの個数は b<n/a 個、それぞれについてcは決まる
-}
