%I#17 2015年4月19日03:51:06

%S 3,3,5,3,3,1,5,5,4,3,7,0,3,6,7,3,4,5,7,5,6,5,0,5,8,3,9,0，

%温度3,5,3,5,1,5,5,0,3,7,3,3,19,3,2,5,5,11,3,55,3,15,0，

%U 11,5,3,3,7,0,3,7、0,3,11,7,3,5,5,3、5,0,7,7,3,11、5,0

%N a（N）=最小素数p，使得2n+p^2是另一个素数，如果不存在这样的素数，则为0。

%C关于a（n）=0的数字n，请参见A138685。

%H Alois P.Heinz，<a href=“/A138479/b138479.txt”>n，a（n）表，n=1.-10000</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Near-SquarePrime.html“>近方形素数</a>

%e 11=2+3^2，因此a（1）=3，

%e 13=4+3^2，因此a（2）=3，

%e 31=6+5^2，因此a（3）=5。

%p a：=proc（n）局部p；

%p如果irem（n，3）=1且不是isprime（2*n+9），则为0

%p其他p:=2；

%pdop:=下一素数（p）；

%p如果是i素数（2*n+p^2），则返回p fi

%日期

%功率因数

%p端：

%p序列（a（n），n=1..100）；#_Alois P.Heinz，2014年6月16日

%t a={}；Do[p=0；While[（！PrimeQ[2*n+Prime[p+1]2]）&&（p<1000），p++]；如果[p<1000，AppendTo[a，质数[p+1]]，AppendTo[a，0]]，{n，1，150}]；a（*阿图尔·贾辛斯基，2008年3月26日*）

%t a[n_]：=如果[Mod[n，3]=1，（对于[m=1，！素数Q[2n+Prime[m]^2]，m++]；素数[m]），如果[！素数q[2n+9]，0,3]]；表[a[n]，{n，100}]-法里德-菲鲁兹巴赫，2008年3月28日

%Y参见A002373、A020481、A049613、A059324（？）。

%K nonn公司

%O 1,1号机组

%A Philippe LALLOUET（philip.LALLOUET（AT）orange.fr），2008年3月20日

%E更多条款来自_Artur Jasinski_和_Farideh Firoozbakht_，2008年3月26日