A287615-OEIS公司

A287615型

设r=素数（n）。那么a（n）是最小素数p，因此有一个素数q，其中p>q>r和p mod q=r。

5, 13, 19, 29, 37, 47, 79, 101, 97, 103, 113, 131, 127, 137, 181, 199, 181, 227, 233, 229, 239, 257, 277, 283, 311, 307, 317, 409, 383, 367, 389, 409, 439, 521, 463, 509, 491, 509, 613, 571, 541, 563, 577, 587, 619, 653, 677, 677, 709, 743, 787, 853, 743, 877 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`素数p使得p=k*q+r，r<q<p素数；k甚至是p最小的倍数。`
	链接	`查尔斯·格里塔斯四世，n，a（n）表，n=1.10000` `Ophir Spector，C++代码和Excel文件`
	例子	`a（1）=5，因为r=2，q=3，p=5，是5=2 mod 3的最小素数。` `a（9）=97，如r=23，q=37，p=97。97=237+23小于139=429+23(A129919号).`
	MAPLE公司	`f： =proc（n）局部p，q，r；` `r： =ithprime（n）；` `p： =r+1；` `做` `p： =下一素数（p）；` `q： =最大值（数值理论：-系数集（p-r））；` `如果q>r，则返回p fi` `日期：` `结束进程：` `地图（f，[1..100]美元）#罗伯特·伊斯雷尔2017年6月5日`
	数学	`a[n_]：=模[{p，q，r}，r=素数[n]；p=r+1；而[True，p=NextPrime[p]；q=最大值[FactorInteger[p-r][[All，1]]；如果[q>r，返回[p]]]；` `数组[a，100](Jean-François Alcover公司2020年10月6日之后罗伯特·伊斯雷尔)`
	黄体脂酮素	`（PARI）找到第一项（n）=my（t:small=0，a:vec=[]）；forprime（r=2，forprime）（p=r+2，forprime（q=r+2,p-2，if（p%q==r，a=concat（a，[p]））；如果（t++==n，a[1]-=2；返回（a），中断（2）））\\R.J.卡诺，2017年6月6日` `（PARI）first（n）=my（v=向量（n），best，k=1）；v[1]=5；对于素数（r=3，素数（n），最佳=oo；对于素数（q=r+2，如果（q>=最佳，v[k++]=最佳；next（2））；对于步（p=r+2q，最佳，2q，if（isprime（p），最佳=p；断裂）））；v（v）\\查尔斯·格里特豪斯四世2017年6月7日`
	交叉参考	`囊性纤维变性。A129919号.` `上下文中的序列：A023270型 A279765型 A308196型A129919号 A045454号 A356833飞机` `相邻序列：A287612型 A287613型 A287614型A287616型 A287617型 A287618型`
	关键字	`非n,容易的`
	作者	`Ophir Spector公司2017年5月27日`
	状态	`经核准的`