用R语言编程求满足下列不等式的最小自然数 n，使得1+2+3+...+n>6666.

可以使用如下R语言代码求解：

n <- 1
sum <- 0
while (sum <= 6666) {
  sum <- sum + n
  n <- n + 1
}
cat("满足不等式的最小自然数 n 为", n, "\n")

运行上述代码，即可输出满足不等式的最小自然数n。输出结果为：

满足不等式的最小自然数 n 为 116

这与我们之前手动推导的结果相同。