>>274
シミュレーションするまでもなかった。

aiko[n_] := 1 - 3 (2^n-2)/3^n
aiko[100]
re=Boole[!# > 9999/10000]& /@Table[aiko[n],{n,2,50}] // Total
aiko[re+1] // N
aiko[re+2] //N