%I#50 2024年3月17日02:14:02

%编号：12,2413081884200423642532724380440084044418842364668，

%电话：505250645268538854846252649265646756852704471887356，

%电话：7404760877648124841284728796908492289852985298769924

%N数k，使伯努利数B_k的分母为2730。

%C 2730=2*3*5*7*13。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%e伯努利B（12）为-691/2730，因此12在序列中。

%t Reap[For[n=0，n<=10^4，n=n+12，If[Denominator[BernoulliB[n]]==2730，Print[n]；母猪[n]]][[2,1]]

%t选择[表格[n，{n，2，10000}]，分母@BernoulliB[#]==2730&]（*_文森佐·利班迪，2015年4月2日*）

%o（PARI）是（n）=分母（bernfrac（n））==2730

%o（PARI）是（n）=如果（n%12||n%16==0||n%9==0，返回（0））；对于素数（p=5107，如果（n%p==0，返回（0））；fordiv（n，d，if（i素数（d+1）&&d>13，return（0））；2014年10月22日，查尔斯·格里特豪斯四世

%Y参见A000367、A002445、A006954、A027642、A027760、A02776、A051222、A051225-A051230、A245056、A271634、A27163、A272138、A272139、A272、140、A272183、A2172184、A27、185和A272186。

%K nonn公司

%O 1,1号机组

%A _Jean-François Alcover和Paul Curtz，2014年10月22日