%I#2 2012年3月31日13:20:26
%S 1,7479413633975146391041034314114328496620481151,
%电话:645461408495342195062759860182223791043233989306589962303,
%电话:44353977838178833314833802466705094891143366612154851808752629
%N Wolstenholme数A007406(和1/k^2的分子,k=1..(p-1)/2)除以素数p>3。
%C Wolstenholme数A007406(n)(和1/k^2的分子,k=1..n)可被素数p>3整除,其中n=(p-1)/2。a(n)=A007406((p-1)/2)/p,其中p=素数[n]>3。
%F a(n)=分子[Sum[1/i^2,{i,1,(素数[n]-1)/2}]/素数[n]对于n>3。
%e A007406(n)开始编号1、5、49、205、5269、5369、266681、1077749、9778141,。。
%e a(3)=A007406((5-1)/2)/5=1
%e a(4)=A007406((7-1)/2)/7=49/7=7
%e a(5)=A007406((11-1)/2)/11=5269/11=479
%t表[分子[Sum[1/i^2,{i,1,(素数[n]-1)/2}]]/Prime[n],{n,3,25}]
%Y参考A007406。
%K压裂,非
%O 3、2
%A_Alexander Adamchuk,2006年6月7日
|