%I#9 2016年10月11日05:32:10

%S 31,732413793571966120359478815194965521119953135151291721，

%电话：42735173692176167192188912020411494313153387117421611785961，

%电话：247833125336813197839382044138942294046434848550336573799

%形式为（（p+1）/2）^3+（（p-1）/2）*2的N素数，其中p是素数。

%C形式为k^3+k^2-2k+1的素数，其中2k-1是素数。

%H Robert Israel，n的表，n=1..10000的a（n）</a>

%e（（5+1）/2）^3+（（5-1）/2）

%p res:=空：

%p计数：=0：

%p p：=2

%计数<100 do时为p

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

%p r：=（（p+1）/2）^3+（（p-1）/2）^2；

%p如果是素数（r），则

%p res：=res，r；

%p计数：=计数+1；

%p菲

%日期：

%p资源；#_罗伯特·伊斯雷尔（Robert Israel），2016年10月10日

%t f[n]：=（（p+1）/2）^3+（（p-1）/2）；lst={}；Do[p=素数[n]；如果[PrimeQ[f[p]]，AppendTo[lst，f[p]]]，{n，6！}]；第一次

%o（PARI）列表a（nn）=表示素数（p=3，nn，如果（i素数（q=（p+1）/2）^3+（（p-1）/2）），打印1（q，“，”））；\\_米歇尔·马库斯（Michel Marcus），2016年10月11日

%Y参考A162652、A163418、A163419、A163420、A163421、A163422、A163424、A163425、A163426、A163427

%K nonn，简单

%O 1,1号机组

%2009年7月27日，A _Vladimir Joseph Stephan Orlovsky

%E描述和编辑：Charles R Greathouse IV_，2009年10月5日