序列的总和

Question

如果n（1）= 1，n（2）= 5，n（3）= 13，n（4）= 25，...... 我正在使用for循环来总结这些术语 1 + (1*4 - 4) + (2*4 - 4) + (3*4 - 4) + ..

这是我使用for循环的函数：

shapeArea <- function(n) {

     terms <- as.numeric(1)
     for(i in 1:n){
       terms <- append(terms, (i*4 - 4)) 
     }
    sum(terms)
}

这很好（如图所示）：

> shapeArea(3)
[1] 13
> shapeArea(2)
[1] 5
> shapeArea(4)
[1] 25

然而，我还在考虑如何在不保存数字向量terms中的系列术语的情况下执行此操作。换句话说，有一种方法可以找到术语的总和，而不必先将它们保存在向量中。或者这是有效的方法。

由于

Answer 1

您可以将Thread.sleep(1000)功能更改为单行

shapeArea