#lang racket

(define (fizzbuzz i)
  (or  (zero? (remainder i 15))
       (zero? (remainder i 5))
       (zero? (remainder i 3))))

(let ([N (read)])
  (define (iter i)
    (if (> i N)
        0
        (+ (if (fizzbuzz i) 0 i) (iter (+ i 1)))))
  (display (iter 1)))
