open System

let No480 () =
    let N = int <| Console.ReadLine()
    let rec sum (n : int) (s : int) =
        if n > 0 then
            sum (n - 1) ( s + n )
        else 
            s

    printfn "%d" <| sum N 0

    ()

No480 ()