Function LISP函数来定义递归函数

我正在寻找一些关于LISP函数的帮助

我必须编写一个LISP函数来定义函数的递归版本：

平方（1）=1

Sq（n）=Sq（n-1）+2*n–1如果n>1

如果有人能给我指出一个有用的网站或提供一个答案，我将不胜感激

---

谢谢。

只需做一对一的翻译。假设您需要Common Lisp，以下是实现：

(defun sq (n)
  (if (= n 1)
      1
      (+ (sq (1- n)) n n -1)))