OEIS哀悼西蒙斯并感谢西蒙斯基金会对包括OEIS在内的许多科学分支研究的支持。

登录

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

 

提示 （来自的问候整数序列在线百科全书!) A250216型 弱不规则素数。素数是弱不规则的，只要它是Bernoulli不规则素数或Euler不规则素。 5 19, 31, 37, 43, 47, 59, 61, 67, 71, 79, 101, 103, 131, 137, 139, 149, 157, 193, 223, 233, 241, 251, 257, 263, 271, 277, 283, 293, 307, 311, 347, 349, 353, 359, 373, 379, 389, 401, 409, 419, 421, 433, 461, 463, 467, 491, 509, 523, 541, 547, 557, 563, 571, 577, 587, 593 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1，1 评论 除法的素数pA241601型（k） 对于一些k。 链接 n=1..56时的n，a（n）表。 彼得·卢施尼，不规则Bernoulli和Euler素数. 主页，不规则素数 主页，欧拉不规则 数学 pmax=593；m0=200；dm=100； b[n_]：=分子[BernoulliB[2n]/（2n）]； c[n_]：=分子[SeriesCoefficient[Log[Tan[x]+1/Cos[x]]，{x，0，2n+1}]]； （*a1=A241601型*)a1[0]＝1；a1[n_]：=a1[n]=如果[EvenQ[n]，b[n/2]//Abs，c[（n-1）/2]]； f[m_]：=f[m]=模块[{}，aa=表[a1[n]，{n，0，m}]；okQ[p_]：=AnyTrue[aa，可除[#，p]&]；收获[For[p=2，p<=pmax，p=NextPrime[p]，If[okQ[p]、Sow[p]]][[2，1]]； f[m=m0]；f[m=m+dm]； 而[打印[“m=”，m]；f[m]！=f[m-dm]，m=m+dm]； A250216型=f[m](*Jean-François Alcover公司2019年7月23日*） 交叉参考 囊性纤维变性。A000928号，A120337号，A128197号. 上下文中的序列：A316678型 A330275型 A038672号*A125148号 A214798型 A040066型 相邻序列：A250213型 2014年2月2日 A250215型*A250217型 250218英镑 A250219型 关键词 非n 作者 埃里克·陈2014年12月24日 状态 经核准的

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

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

上次修改时间：2024年6月11日11:51 EDT。包含373311个序列。（在oeis4上运行。）