登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A092291美元 设p=第n个不规则素数,A000928号(n) ●●●●。那么a(n)=m的最小值,使得分子(伯努利(2*m)/(2*m))/分子。
574, 1269, 1910, 3384, 1185, 1376, 9611, 4789, 9670, 20946, 13019, 11247, 2689, 22708, 13355, 45251, 48407, 32653, 18761, 38706, 76391, 25563, 50310, 79023, 44948, 29864, 21716, 71441, 104339, 22993, 73572, 61549, 14714, 26122, 6227, 179369, 159687, 5862, 132157, 24925, 76023, 15346, 73479, 136956, 212240, 10587, 3801, 137040, 108520, 194171, 98550, 282532, 87272, 133081, 220187, 305002, 41764, 27268, 380180, 70921, 184940, 241076, 73858, 80108, 250927 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
据推测a(n)=(1+A000928号(n) *(*)(A035112号(n) -1))/2。然而,伯恩德·凯尔纳(Bernd Kellner)富有洞察力的论文表明,这个公式首先对不规则素数6449无效-T.D.诺伊2004年2月10日
链接
数学
(*此程序不方便使用大量术语*)不规则PrimeQ[p_]:=模块[{k=1},而[2*k<=p-3&&Mod[Numerator[BernoulliB[2*k]],p]!=0,k++];2*k≤p-3];不规则素数[1]=37;unregularPrime[n_]:=unregular Prime[n]=模块[{p},对于[p=NextPrime[n-1]],为真,p=Next Prime[p],如果[unregularePrimeQ[p]、返回[p]]];a[n_]:=a[n]=对于[m=1,True,m++,如果[Numerator[BernoulliB[2*m]/(2*m)]/Numerator[PernoulliB[2*m]/(2*m*(2*m-1))]==unregularPrime[n],返回[m]];表格[打印[a[n]];a[n],{n,1,15}](*Jean-François Alcover公司2013年9月27日*)
交叉参考
中的术语A090495号对应于p在A090496号.
关键词
非n,美好的
作者
N.J.A.斯隆,基于罗兰·巴赫2004年2月5日
扩展
2004年2月4日,Roland Bacher计算了初始术语;进一步条款汉斯·哈弗曼2004年2月5日和T.D.诺伊2004年2月6日
偏移量修改人Jean-François Alcover公司2013年9月27日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月19日04:58。包含370952个序列。(在oeis4上运行。)