提出
经核准的
编辑
f[n]：=（（p+1）/2）^3+（（p-1）/2）；第一次={};={};Do[p=素数[n];];如果[PrimeQ[f[p]]，AppendTo[lst，f[p]]]，{n，6!}];!}];第一次
（PARI）lista（nn）=对于素数（p=3，nn，如果（i素数（q=（p+1）/2）^3+（（p-1）/2）），打印1（q，“，”））\\米歇尔·马库斯2016年10月11日
res:=空：
计数：=0：
p： =2
当计数<100 do时
p： =下一素数（p）；
r： =（（p+1）/2）^3+（（p-1）/2）；
如果是素数（r），则
res：=res，r；
计数：=计数+1；
fi（菲涅耳）
日期：
资源#罗伯特·伊斯雷尔2016年10月10日
Robert Israel，<a href=“/A163428型/b163428.txt“>n表，n=1..10000时为a（n）</a>
_弗拉基米尔 约瑟夫 斯蒂芬尔洛夫斯基(4vladimir公司(自动变速箱)gmail公司.com公司),_,2009年7月27日
OEIS服务器: https://oeis.org/edit/global/876
描述和编辑 _查尔斯·格里特豪斯四世(查尔斯.大房子(自动变速箱)案例.教育部),_,2009年10月5日
OEIS服务器: https://oeis.org/edit/global/147
形式为（（p+1）/2）^3+（（p-1）/2）*2的素数，其中p是素数。
31, 73, 241, 379, 3571, 9661, 20359, 47881, 51949, 65521, 119953, 135151, 291721, 427351, 736921, 761671, 921889, 1202041, 1494313, 1533871, 1742161, 1785961, 2478331, 2533681, 3197839, 3820441, 3894229, 4044643, 4855033, 6573799
1,1
形式为k^3+k^2-2k+1的素数，其中2k-1是素数。
((5+1)/2)^3 + ((5-1)/2)^2 = 27 + 4 = 31, ((7+1)/2)^3 + ((7-1)/2)^2 = 64 + 9 = 73
f[n]：=（（p+1）/2）^3+（（p-1）/2）；lst={}；Do[p=素数[n]；如果[PrimeQ[f[p]]，AppendTo[lst，f[p]]]，{n，6！}]；第一次
囊性纤维变性。162652英镑,A163418号,A163419号,A163420号,A163421号,A163422号,A163424号,A163425号,A163426号,A163427号
非n,容易的
弗拉基米尔·奥尔洛夫斯基（4vladimir（AT）gmail.com），2009年7月27日
Charles R Greathouse IV（Charles.Greathouse（AT）case.edu）的描述和编辑，2009年10月5日
