; Dado un numero, devuelve su secuencia de Collatz
(define (Collatz n)
    (if (= n 1) '(1)
        (if (= (mod n 2) 0) (cons n (Collatz (/ n 2)))
            (cons n (Collatz (+ (* 3 n) 1))))))

; secuencia secuencia Collatz
(define (SecCollatz n)
    (if (= n 1) '(1)
        (append (cons (Collatz n) '()) (SecCollatz (- n 1)))))

; Fibonacci :D
(define (fib n)
    (if (zero? n) 0
        (if (= n 1 ) 1
            (+ (fib (- n 1))
                (fib (- n 2))))))


; Dado un numero devuelve una lista de sus divisores