>>587
10個を拡張して100個までの偶数に拡張。

fn <- function(N){
f <- function(an,n=N){
add <- function(i,j) j*(j+1)/2 - i*(i+1)/2 + i
X=1+add(n/2+1,n-1)
Y=add(2,n/2)+an
X < Y
}
flg=FALSE
an=N
while(flg==FALSE){
an=an+1
flg=f(an)
}
an
}

> head(z)
n a[n]
[1,] 2 3
[2,] 4 5
[3,] 6 7
[4,] 8 11
[5,] 10 18
[6,] 12 27

> tail(z)
n a[n]
[45,] 90 1938
[46,] 92 2027
[47,] 94 2118
[48,] 96 2211
[49,] 98 2306
[50,] 100 2403

1000個だと
> fn(1000)
[1] 249003