; (print (+(inexact->exact(floor(/ n (+ k 1))))1))Here your code !
(use srfi-1)
(define (makeomega n m) (map (lambda (x) (+ x m)) (iota n)) )
(define x (makeomega 10 1))
(define (readn n)  (if (= n 0) '() (cons (read) (readn (- n 1)) ) ))
(define (set-difference x y)
    (cond ((null? x) '())
          ((member (car x) y)
           (set-difference (cdr x) y))
          (else
           (cons (car x) (set-difference (cdr x) y)))))
(print (car(set-difference x (readn 9))))