open System

let toSosu p = bigint 2 ** p - bigint.One
let toBinSeq num = Seq.unfold (fun n -> if n = bigint.Zero then None else Some(int(n % bigint 2), n / bigint 2)) num

Console.ReadLine () |> int |> toSosu |> toBinSeq |> Seq.sum |> printfn "%d"