登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志


提示
问候整数序列的在线百科全书!)
A056637 A(n)是N-类的最小素数,根据Erd- Ser-Self里奇分类的素数。 二十七
2, 11, 23、47, 283, 719、1439, 2879, 34549、138197, 1266767, 14920303、36449279, 377982107, 1432349099、22111003847, 110874748763 列表图表参考文献历史文本内部格式
抵消

1,1

评论

质数P在1类中,如果P-1没有大于3的素因子。如果P-1有其他的主要因素,P是类(C+1),其中C是它的主要因子的最大类。也见A000 5109.

A(18)<619108107719,A(19)<=19811459447009,A(20)<=152772264735359。这些上限可以通过从n类素数列表中生成类(n+1)-素数来找到;如果后者是完全完备的,则可以推断出没有更小的(n+1)-素数。-哈斯勒,APR 05 2007

链接

n,a(n)n=1…17的表。

公式

A(n+1)>2×a(n)+1,因为a(n+1)-1是偶数,并且必须具有n的因子——奇数(n>1)和>a(n)。a(n+1)<=min {p=2×k*a(n)+1≤k=1,2,3…P是素数},因为A(n)是n-类的素数。-哈斯勒,APR 05 2007

Mathematica

PrimeFiels[nHythOnt]:=平坦[表[] [[〔1〕,{ 1 }〕/@因子整数[n] ];nExtPrime[n]:=块[{k= n+1 },同时]!PrimeQ[k], k++ ]; k]; f[n_Integer] := Block[{m = n}, If[m == 0, m = 1, While[ IntegerQ[m/2], m /= 2]; While[ IntegerQ[m/3], m /= 3]]; Apply[Times, PrimeFactors[m] - 1]]; ClassMinusNbr[n_] := Length[NestWhileList[f, n, UnsameQ, All]] - 3; a = Table[0, {15}]; a[[1]] = 2; k = 5; Do[c = ClassMinusNbr[ k]; If[ a[[c]] == 0, a[[c]] = k]; k = NextPrime[k], {n, 3, 7223000}]; a

交叉裁判

囊性纤维变性。A000 513A000 5109A000A000 511A000A081424A081425A081426A081427A081428A081429A081430.

囊性纤维变性。A082449A129246A081640A129248.

语境中的顺序:A17988 A126916 A090424*A141423 A10697 AA2427

相邻序列:A056634 A056635 A056636*A056638 A056639 A056640

关键词

更多诺恩

作者

Robert G. Wilson五世1月31日2001

扩展

扩展的Robert G. Wilson五世3月20日2003

更多条款唐布尔2003年4月11日。1432349099<a(16)<25782283783。

A(16)和A(17)哈斯勒4月21日2007

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改10月14日03:38 EDT 2019。包含327995个序列。(在OEIS4上运行)