A174602-OEIS公司

A174602型

开始一系列n个拉马努扬素数的最小素数，这些素数是连续素数。

2, 67, 227, 227, 227, 2657, 2657, 2657, 2657, 2657, 2657, 2657, 2657, 562871, 793487, 809707, 809707, 984241, 984241, 984241, 6234619, 11652013, 41662651, 41662651, 41662651, 94653397, 383825567, 869730887, 953913871, 953913871, 953913871 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`Sondow提到了第一次连续运行13个Ramanujan素数。` `从指数m开始=A191228号（a（n））英寸A190874号（m），看到n-1个连续1的计数的第一个实例-约翰·尼克尔森2011年12月15日`
	链接	`达娜·雅各布森，n=1..42时的n，a（n）表` `J.Sondow，Ramanujan素数与Bertrand公设，arXiv:0907.5232[math.NT]，2009-2010。` `J.Sondow，Ramanujan素数与Bertrand公设阿默尔。数学。月刊，116（2009）630-635。` `J.Sondow、J.W.Nicholson和T.D.Noe，Ramanujan初级：束缚、奔跑、双胞胎和间隙，arXiv:1105.2249[math.NT]，2011年。` `J.Sondow、J.W.Nicholson和T.D.Noe，Ramanujan初级：束缚、奔跑、双胞胎和间隙，J.整数序列。14（2011）第11.6.2.条。`
	例子	`67和71是前两个Ramanujan素数，它们是连续的素数，因此a（2）=67。`
	数学	`nn=10000；t=表[0，{nn}]；len=素数[3*nn]；s=0；Do[If[PrimeQ[k]，s++]；如果[PrimeQ[k/2]，s--]；如果[s<nn，t[[s+1]]=k]，{k，len}]；t=t+1；ind=PrimePi[t]；d=差异[ind]；cnt=0；n=1；连接[{2}，收获[Do[If[d[i]]==1，cnt++；如果[cnt==n，母猪[t[[i-n+1]]]；n++]，cnt=0]，{i，长度[d]}]][[2，1]]]`
	黄体脂酮素	`（Perl）使用理论“：all”；my$r=ramanujan_primes（1e8）；我的$max=0；对于（0..$#$r-2）{my$k=0；$k++while next_prime（$r->[$_+$k]）==$r->[$_+$k+1]；假设++$max，“”，$r->[$_]while$k>=$max；}#达娜·雅各布森2016年7月14日`
	交叉参考	`参见。A104272号（拉马努扬素数），A174641号（非Ramanujan素数的运行）。` `上下文中的序列：A217599型 A107214号 A371509型A154880号 A160958型 A046848美元` `相邻序列：A174599号 A174600个 A174601型A174603型 A174604型 A174605型`
	关键字	`非n`
	作者	`T.D.诺伊2010年11月29日`
	状态	`经核准的`