|
| |
|
| A242193型 |
| 最小素数p，使得B_{2*n}==0（mod p），但没有k<n与B_{20k}==O（mod p），或者如果这样的素数p不存在，则为1，其中B_m表示第m个伯努利数。 |
|
10
|
|
|
|
1, 1, 1, 1, 5, 691, 7, 3617, 43867, 283, 11, 103, 13, 9349, 1721, 37, 17, 26315271553053477373, 19, 137616929, 1520097643918070802691, 59, 23, 653, 417202699, 577, 39409, 113161, 29, 2003, 31, 1226592271, 839, 101, 688531
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,5
|
|
|
评论
|
猜想：a（n）是任意n>4的素数。
众所周知，对于所有n>0，（-1）^（n-1）*B_{2*n}>0。
|
|
|
链接
|
|
|
|
例子
|
a（14）=9349，因为|B_{28}|的分子是7*9349*362903，B_2*B_4*B_6**B_{26}不等于0模9349，但B_{14}==0（模7）。
|
|
|
数学
|
b[n_]：=分子[Abs[BernoulliB[2n]]]
f[n_]：=系数整数[b[n]]
p[n_]：=表[部分[部分[f[n]，k]，1]，{k，1，长度[f[n]]}]
执行[如果[b[n]<2，转到[cc]]；Do[Do[If[Mod[b[i]，Part[p[n]，k]]==0，Goto[aa]]，{i，1，n-1}]；打印[n，“”，部分[p[n]，k]]；转到[bb]；标签[aa]；继续，｛k，1，长度[p[n]]｝]；标签[cc]；打印[n，“”，1]；标签[bb]；继续，{n，1，35}]
（*第二个节目：*）
LPDtransform[n_，fun_]：=模块[{d}，d[p_]：=AllTrue[Range[n-1]！可分割[fun[#]，p]&]；选择First[FactorInteger[fun[n]][[All，1]]，d]/。缺少[_]->1]；
A242193list[sup_]：=表格[LPD转换[n，函数[k，Abs[BernoulliB[2k]]//分子]]，{n，1，sup}]
|
|
|
黄体脂酮素
|
（鼠尾草）
定义LPD转换（n，fun）：
d=λp：（1..n-1）中k的全部（非p.divisions（fun（k）））
return next（p代表prime_divisors（fun（n）中的p），如果d（p）），1）
A242193list=lambda-sup:[LPD变换（n，lambda k:abs（bernoulli（2*k））.number（））用于（1..sp）中的n]
打印（A242193list（35））#彼得·卢什尼2019年7月26日
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
