A162652-OEIS公司

A162652号

素数p为正整数m和n，素数q为p=m^2+m-q=n^2+n+q。

7, 13, 31, 43, 73, 211, 241, 421, 463, 1123, 1723, 2551, 2971, 4831, 5701, 6163, 8011, 8191, 9901, 11131, 12433, 14281, 17293, 19183, 20023, 23563, 24181, 28393, 30103, 31153, 35911, 37831, 43891, 46441, 53593, 60271, 77563, 83233, 86143, 95791 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`为了测试素数p是否是一个成员，p=n^2+n+q给出了可能对（n，q）的有限列表，并且对于q的每个值，m^2+m=p+q确定了m的假定值-N.J.A.斯隆2009年7月17日` `此外，形式为（p^2+3）/4的素数带有p奇数素数-扎克·塞多夫2014年5月10日`
	链接	`Jean-François Alcover，n=1..77时的n，a（n）表`
	例子	`7 = 1^2+1+5 = 3^2+3-5.`
	MAPLE公司	isA002378:=proc（n）如果n>=0，则如果issqr（4n+1），则返回（类型（sqrt（4n+1），“奇数”）；否则为假；fi；否则为假；fi；end：素数p，这样有一个素数q<p，这样p+q和p-q都是长方形数。isA162652:=过程（p）局部j，q；如果是素数（p），那么对于从1开始的j，q：=ithprime（j）；如果q>=p，则断裂；fi；如果是A002378（p+q）且是A00237（p-q），则返回（true）；fi；od：假；否则为假；fi；结束：对于从1到4000的n，如果是A162652（ithprime（n）），则执行printf（“%d，”，ithprime；fi；od#R.J.马塔尔2009年7月17日
	数学	`溶胶[p]：=m^2+m-p/。求解[m>0&&n>0&2p==m+m^2+n+n^2，{m，n}，整数]；` `Reap[For[p=2，p<10^6，p=NextPrime[p]，qsel=Select[sol[p]，PrimeQ]；如果[qsel！={}，打印[p]；母猪[p]]][[2,1]](Jean-François Alcover公司2020年3月25日）`
	交叉参考	`囊性纤维变性。A163418号. -R.J.马塔尔，2010年2月5日` `上下文中的序列：A308851型 A298027型 A085104号A306889型 A181141号 A031158美元` `相邻序列：A162649号 A162650型 A162651号A162653型 A162654号 A162655型`
	关键词	`非n`
	作者	`丹尼尔·蒂斯代尔2009年7月8日`
	扩展	`定义修订人N.J.A.斯隆2009年7月17日` `来自的更多条款R.J.马塔尔2009年7月17日` `延伸至a（31）以外R.J.马塔尔2010年2月5日`
	状态	`经核准的`