A174641-OEIS公司

A174641号

最小的素数，它开始了n个非Ramanujan素数的连续素数。

3, 3, 3, 73, 191, 191, 509, 2539, 2539, 5279, 9901, 9901, 9901, 11593, 11593, 55343, 55343, 55343, 55343, 55343, 174929, 174929, 174929, 225977, 225977, 225977, 225977, 225977, 534889, 534889, 534889, 534889, 534889, 534889, 534889, 534889, 2492317, 2492317 (列表；图表；参考；听；历史；文本；内部格式)

	偏移	`1,1`
	评论	`Sondow提到了连续运行10个非Ramanujan素数。`
	链接	`达娜·雅各布森，n=1时的n，a（n）表。.107（T.D.Noe的前67个术语）` `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条。`
	数学	`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；t=补码[Prime[Range[PrimePi[t[[-1]]]]，t]；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，Length[d]｝]][[2，1]]]`
	黄体脂酮素	`（Perl）使用理论“：all”；` `my（$k、$max、$start、$end、$inc、$p、$q、$r、$pi）` `=（0,0,0,10，1e9，0,2，[]，素数_iterator（3））；` `而（1）{` `如果（！@$r）{` `（$start，$end）=（$end+1，$end+$inc）；` `$r=ramanujan_primes（$start，$end）；` `}` `（$p，$q，$k）=（$q，shift（@$r），0）；` `#$k=素数（$p+1，$q-1）；` `$k++而$pi->（）<$q；` `说++$max，“”，next_prime（$p），而$k>$max；` `}` `#达纳·雅各布森2016年7月14日`
	交叉参考	`囊性纤维变性。A104272号（拉马努扬素数），A174635号（非Ramanujan素数）。` `囊性纤维变性。A174602型（拉马努扬素数的运行）。` `囊性纤维变性。A202187型,A202188型.` `上下文中的序列：A174538号 A340821 A091323号A217671型 A118539号 A015665号` `相邻序列：A174638号 A174639号 A174640号A174642号 A174643号 A174644号`
	关键词	`非n`
	作者	`T.D.诺伊，2010年11月29日`
	状态	`经核准的`