%I#8 2023年4月2日11:56:22
%S 0,1,3,9,3,7,4,14,61,16,35,19,41,22,2179,97103109115115121,
%电话:127,65133,45137143149155811817817817847877877877,
%电话:9079379679979979971027105726810871087108711171147114711471147
%N Riemann到pi(N)近似值的分子。
%C Edwards,第22页,把这个叫做J(n)。
%D J.C.Lagarias和A.M.Odlyzko,计算π(x):一种分析方法,《算法》,8(1987),173-191。
%D H.M.Edwards,《黎曼的泽塔函数》,学术出版社,纽约,1974年。
%H T.D.Noe,n的表格,n的a(n)=1..10000</a>
%F参见Maple代码。
%e 0、1/2、3/2、9/4、3、7/2、4、14/3、61/12、16/3、35/6、19/3…=A099319/A099320。
%p f:=proc(n)局部i,m,p,t1,t2;t1:=0;对于i从1到n,做p:=ithprime(i);如果p>n,则断裂;fi;对于从1到n的m,如果p^m>n,则断开;fi;如果n=p^m,则t2:=1/(2*m),否则t2:=1/m;fi;t1:=t1+t2;od;od;t1;结束;
%tf[n_]:=模[{i,m,p,t1,t2},t1=0;对于[i=1,i<=n,i++,p=Prime[i];如果[p>n,中断[]];对于[m=1,m<=n,m++,如果[p^m>n,中断[]];如果[n==p^m,t2=1/(2m),t2=1/m];t1=t1+t2]];t1];
%t表[f[n]//分子,{n,1,100}](*_Jean-François Alcover_,2023年4月2日,在Maple代码之后)
%Y参考A099320
%K非n,压裂
%氧1,3
%A _N.J.A.Sloane,2004年11月17日
|