A157495-OEIS公司

1957年1月

素数（n）和任何较小的平方之间的最小素数差。

2, 2, 5, 3, 2, 13, 13, 3, 7, 13, 31, 37, 5, 7, 11, 17, 23, 61, 3, 7, 37, 43, 2, 53, 61, 37, 3, 7, 73, 13, 127, 31, 37, 103, 5, 7, 13, 19, 23, 29, 79, 37, 47, 157, 53, 3, 67, 79, 2, 193, 37, 43, 97, 107, 61, 7, 13, 127, 241, 137, 139, 37, 163, 167, 277, 61, 7, 13, 23, 313, 29, 103 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`如果p-k^2是素数的唯一前一个平方k是0，那么我们生成序列A065377号.`
	链接	`罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表`
	例子	`第七个素数是17。前面17的平方是16,9,4,1,0。差异为17-16=1、17-9=8、17-4=13、17-1=16和17-0=17。然后4是17的前一个平方，可以从17中减去，得到一个素数。所以a（7）=13。如果我们以这种方式减少素数（6）=13，我们得到13-9=4，13-1=12，13-0=13。这表明0是可以从13中减去的第一个平方，从而得到质数。所以a（6）=13。`
	MAPLE公司	`A157495号：=进程（n）` `局部p，s；` `p:=i素数（n）；` `s：=楼层（sqrt（p））；` `虽然不是isprime（p-s^2）do` `s：=s-1；` `结束do；` `p-s^2；` `结束进程：` `序列(A157495号（n），n=1..130）#R.J.马塔尔2016年9月7日`
	数学	`表[SelectFirst[Reverse[p-Range[0，Floor[Sqrt[p]]^2]，PrimeQ]，{p，Prime[Range[80]]}]（需要Mathematica版本10或更高版本）(哈维·P·戴尔2017年10月23日）`
	黄体脂酮素	`（PARI）g（n）=c=0；对于素数（x=2，n，对于（k=1，n^2，if（issquare（abs（x-k）））&isprime（k），print1（k“，”）；c++；断裂））；c（c）`
	交叉参考	`囊性纤维变性。A065377美元.` `上下文中的序列：A293833型 A146316铝合金 A258803型A308143型 A308515型 A361328型` `相邻序列：A157492号 A157493号 A157494号A157496号 A157497号 A157498号`
	关键词	`非n`
	作者	`西诺·希利亚德2009年3月1日`
	扩展	`为了清晰起见，重新表述了NAME-R.J.马塔尔2016年9月8日`
	状态	`经核准的`