(define (search-for-primes a b)
  (define (iter num)
    (timed-prime-test num)
    (if (not (> num b)) (iter (+ num 1))))
  (iter a))

; Простые числа после 1000:  1009, 1013, 1019
; Простые числа после 10000: 10007, 10009, 10037
; Простые числа после 100000:  100003, 100019, 100043
; Простые числа после 1000000:  1000003, 1000033, 1000037

; Да, замеры времени подтверждают скорость работы алгоритма