main = do
    n <- readLn
    let nhalf = n `div` 2
    print $ ((nhalf + 1) * (n - nhalf + 1) - 1) `mod` 1000007