(define num (read))

(print
 (let loop ((ans 0) (i 3))
   (cond ((> i num) ans)
         ((zero? (modulo  i 15))
          (loop (+ ans 4) (+ i 1)))
         ((or (zero? (modulo i 3)) (zero? (modulo i 5)))
          (loop (+ ans 2) (+ i 1)))
         (else (loop ans (+ i 1))))))