all factors

all-factors.rkt

#lang racket

(define prime-list '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59))

(define (factor-list n)
  (define p-factor-list
    (for/list ([p prime-list]
               #:when (= (remainder n p) 0))
      p))
  (println p-factor-list)
  (for/list ([c (in-combinations p-factor-list)])
    (for/product ([n c])
      n)))

(factor-list 60)
(factor-list 10)
(factor-list 13)