(define n (read))

(print
 (fold (lambda (x y)
         (cond ((and (= (modulo x 3) 0) (= (modulo x 5) 0)) (+ 4 y))
               ((or (= (modulo x 3) 0) (= (modulo x 5) 0)) (+ 2 y))
               (else y)))
       0
       (iota n 1)))