Dear Elim,
you can do those computations with Mathematica,
from
a[n_] := Module[{v, k}, v = 0.5`32;
For[k =
0, k < n, k++, v = Log[1 + v]]; v]
na[n_] := n*a[n]
A[n_] := n*(na[n] - 2)/Log[n]
na[5000]
na[677760]
na[677761]
A[677761]
one gets
1.9993456813538159268512671629363540
1.999999999999185463663068650858282264
2.000000000000636759504537359683291085
3.214308654406640522846446*10^-8
3.214308654406640522846445900750938119463549*10^-8 (same evaluation here, but with 50 digits by v=0.5`50 )
This seems to indicate that your mpmath code works well.
Note that the evaluation of log(1+x) for small x is a dangerous operation, because adding 1 to x cancels digits. To prevent this
Greetings, Helmut