%I#35 2020年6月7日10:28:11

%S 2,4,34,38,62,76,94118122124142188202206214218236244274，

%电话298302314334362394412422436454458482514526538542，

%电话：56657860462262662863466626686746946998706722724734758

%N对m进行编号，使伯努利数B_{2*m}的分母为30。

%根据von Staudt-Clausen定理，分母（B_{2*m}）=素数p的乘积，这样（p-1）|2*m。

%D B.C.Berndt，Ramanujan笔记本第四部分，Springer-Verlag，见第75页。

%D G.H.Hardy和E.M.Wright，《数字理论导论》，第5版，牛津大学出版社，1979年，第118页。

%D H.Rademacher，《解析数论主题》，施普林格出版社，1973年，第1章。

%H T.D.Noe，n的表格，n=1..1000的a（n）</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Von_Staudt%E2%80%93Clausen_theorem“>Von Staudt-Clausen定理。

%H<a href=“/index/Be#Bernoulli”>与伯努利数相关的序列的索引条目。

%F a（n）=A051226（n）/2.-_Petros Hadjicostas，2020年6月6日

%e数字m=2，4，34在列表中，因为B_4=B_8=-1/30和B_68=-7873130858728141909149208474606244347001/30_Petros Hadjicostas，2020年6月6日

%t例[范围[760]，n_/；分母[BernoulliB[2*n]]==30]（*_Jean-François Alcover_，2011年3月23日*）

%o（Perl）@p=（2,3,5）$p=5；对于（$n=4；$n<=1516；$n+=4）{while（$p<$n+1）{$p+=2；next if grep$p%$_=0，@p；按@p，$p；按@c，$p-1；}打印$n/2，“，”if！grep$n%$_==0，@c；｝打印“\n”

%o（PARI）是（n）=div（n，d，如果（i素数（2*d+1）&&d>2，返回（0））；2017年6月21日，n%2==0

%Y参见A045979、A051222、A051226、A051227、A051228、A051229、A051230。

%K nonn，很好，很容易

%O 1,1号机组

%A _N.J.A.斯隆_

%E来自_Hugo van der Sanden的更多术语和Perl程序_

%E姓名编辑_Petros Hadjicostas_，2020年6月6日