This is the other example:
(*start*)
(*Mathematica 8.0.1*)
n = 30;(*set n=200 for more digits*)
s = 3/2 + 14*I;
s + 1/n +
1/(1 - Sum[(-1)^(k - 1)*
Binomial[n - 1, k - 1]/HarmonicNumber[10^10000, s + k/n], {k,
1, n}]/Sum[(-1)^(k - 1)*
Binomial[n - 1, k - 1]/
HarmonicNumber[10^10000, s + k/n + 1/n], {k, 1, n}]);
N[%, n]
(*end*)