I have the following functions 

```
f1[c1_,c2_,p1_,n_,i_]:= Sum[
    Binomial[n,j]  p1^j (1-p1)^(n-j),
        {j,0,c1}] + Sum[
    Binomial[n,k] p1^k (1-p1)^(n-k+n i),
        {k,c1+1,c2}]

```

and

```
f2[c1_,c2_,p2_,n_,i_]:=Sum[
    Binomial[n,j] p2^j (1-p2)^(n-j),
        {j,0,c1}] + Sum[
    Binomial[n,k] p2^k (1-p2)^(n-k+n i),
        {k,c1+1,c2}]

```

(actually the functions are identical. Both are kept for "historical" reasons) 
From the output of

```
Table[Table[Table[{f1[c1, c2, 0.01, n, 5], f2[c1, c2, 0.05, n, 5]}, {c2, 
    c1 + 1, 6, 1}], {c1, 0, 4, 1}], {n, 175, 185}] 

```

I need only such values which satisfy $f\_1\geq 0.95$ and $f\_2\leq0.05$ with there parameters (value of $c\_1$,$c\_2$ and $n$). And how to export this output in excel.