let fizzAndBuzzNum lim = lim/15L
let fizzOrBuzzNum  lim = lim/3L + lim/5L - (fizzAndBuzzNum lim)*2L
let cntZ n = (fizzAndBuzzNum n)*4L + (fizzOrBuzzNum n)*2L

let N = stdin.ReadLine() |> int64

cntZ N |> printfn "%i"