r语言写代码，怎么写序列

第n个三角形数表示为n*(n+1)/2,创建一个包含前20个三角形数的序列。R有一个内置函数letters，它包含小写的罗马字母。使用前20个英文字母来给你刚刚创建的向量命名，选择命名为元音的三角数。

# 创建前20个三角形数的序列
triangle_nums <- 1:20*(1:20+1)/2
# 创建向量名
letters_vec <- letters[1:20]
# 选择命名为元音的三角数
for (i in 1:20) {
  if (letters_vec[i] %in% c("a", "e", "i", "o", "u")) {
    assign(letters_vec[i], triangle_nums[i])
  }
}