(define n (read))

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