In Common Lisp: (defun r1 (y z) (- 108 (/ (- 815 (/ 1500 z)) y))) (defun r (n &aux (l '(4 425/100))) (loop for i from 2 upto (1+ n) do (

In Common Lisp: (defun r1 (y z) (- 108 (/ (- 815 (/ 1500 z)) y))) (defun r (n &aux (l '(4 425/100))) (loop for i from 2 upto (1+ n) do (setf l (append l (list (r1 (elt l (- i 1)) (elt l (- i 2))))))) l) CL-USER 68 > (loop for e in (r 20) and i below 20 do (format t "~%~3a~20,15f" i (float e 1.0d0))) 0 4.000000000000000 1 4.250000000000000 2 4.470588235294118 3 4.644736842105263 4 4.770538243626063 5 4.855700712589074 6 4.910847499082793 7 4.945537404123916 8 4.966962581762701 9 4.980045701355631 10 4.987979448478392 11 4.992770288062068 12 4.995655891506634 13 4.997391268381344 14 4.998433943944817 15 4.999060071970894 16 4.999435937146839 17 4.999661524103767 18 4.999796900713418 19 4.999878135477931