Base of Riemann zeros

Dear Friends, Who have possibility to help me create base of Riemann zeros up to 100 decimal?
If You can run procedure for about 1 week

pp={};Do[AppendTo[pp, N[Im[ZetaZero[n]], 100]], {n, 2000001,2500000}];Export["2000000.dat",pp]

and later send on my email grafix@csl.pl
Base of 10000000 first zeros is necessary to quick evaluation of function secondzeta
see