main = getLine >>= print . solve . read

solve :: Int -> Int
solve n = foldl (\acc x -> n - x + 1 + acc) 0 [3, 5..n]