R语言解决数学题江苏高考理科数学填空压轴题

n <- 50a <- numeric(n)for (i in 1:n) {a[i] <- 2*i-1 }m <- 10b <- numeric(m)for (j in 1:m) {b[j] <- 2^j }c <- sort(union(a,b))d <- cumsum(c)count <- 1while (d[count]<=12*c[count+1]){count <- count + 1}count