%我#12 2022年9月8日08:45:46

%S 5,7,13,19,29,31,41,53,7110110317319119922322339257，

%电话：269277331383397431491569571599619631719733751757761，

%电话：82385785986388790793796797197710091063106911231163

%N素数p使得（p+1）^3/8+（p-1）/2也是素数。

%C素数A000040（k），这样（A006254（k-1））^3+A005097（k-1”）也是素数。

%H Vincenzo Librandi，<a href=“/A163427/b163427.txt”>n的表，a（n）表示n=1..1000</a>

%F（a（n）+1）^3/8+（a（n-1）/2=A163426（n）。

%e对于p=5，（5+1）^3/8+（5-1）/2=27+2=29，素数，将p=5加到序列中。

%e对于p=7，（7+1）^3/8+（7-1）/2=67，素数，将p=7加到序列中。

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

%t选择[素数[范围[100]]，素数Q[（#+1）^3/8+（#-1）/2]&]（*Vincenzo Librandi_，2013年4月9日*）

%o（岩浆）[p:p在素数中InInterval（31200）|IsPrime（（p+1）^3 div 8+（p-1）div 2）]；//_文森佐·利班迪（Vincenzo Librandi），2013年4月9日

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

%K nonn，简单

%O 1,1号机组

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

%E由R.J.Mathar_编辑，2009年8月24日