In[]:=
Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision1000,Method"Trapezoidal"]]]
Out[]=
{1.8125,0.×+0.×}
-1002
10
-1002
10
In[]:=
Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision2000,Method"Trapezoidal",MaxRecursion10]]]
Out[]=
{12.4844,0.×+0.×}
-2002
10
-2002
10
In[]:=
Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision3000,Method"Trapezoidal",MaxRecursion11]]]
Out[]=
{53.4063,0.×+0.×}
-3002
10
-3002
10
In[]:=
Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision4000,Method"Trapezoidal",MaxRecursion11]]]
Out[]=
{94.375,0.×+0.×}
-4002
10
-4002
10
In[]:=
Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision5000,Method"Trapezoidal",MaxRecursion12]]]
Out[]=
{285.813,0.×+0.×}
-5002
10
-5002
10
In[]:=
ClearSystemCache[];Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision10000,Method"Trapezoidal",MaxRecursion13]]]
Out[]=
{2204.64,0.×+0.×}
-10002
10
-10002
10
ClearSystemCache[];Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision40000,Method"Trapezoidal",MaxRecursion15]]]
Out[]=
{114362.,0.×+0.×}
-40002
10
-40002
10
In[]:=
ClearSystemCache[];Timing[MKB-Quiet[NIntegrate[Exp[PiIx]Sum[(Log[x]/x)^n/n!,{n,1,Infinity}],{x,1,InfinityI},WorkingPrecision1000,Method"Trapezoidal"]]]
Out[]=
{2.04688,0.×+0.×}
-1002
10
-1002
10