%I#39 2019年2月3日01:36:14

%S 593480771002305330414227553670637245248985856933109346759，

%电话：1826794732541121433059663694330516377279144972029672529，

%电话：4178961167652862125783460801591278389381317220457917993776223196181127236734785944823524743333853

%N形式的素数k^4+k^3+4*k^2+7*k+5=k^4+（k+1）^3+（k+2）^2。

%C Bunyakovsky的猜想暗示这个序列是无限的_Charles R Greathouse IV，2011年6月9日

%C序列中的所有项都与2 mod 3全等。-_K.D.Bajpai，2014年4月11日

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%e5是素数，它出现在序列中，因为0^4+1^3+2^2=5。

%e59是素数，它出现在序列中，因为2^4+3^3+4^2=59。

%e 348077=24^4+（24+1）^3+（24+2）^2=24^4+25^3+26^2。

%e 10023053=56^4+（56+1）^3+（56+2）^2=56^4+57^3+58^2。

%p%p KD:=proc（n）局部a，b，d；a： =（n）^4+（n+1）^3+（n+2）^2；如果是质数（a），则返回（a）；fi；结束：序列（KD（n），n=0..1000）；#_K.D.Bajpai，2014年4月11日

%t lst={}；Do[If[PrimeQ[p=n^4+n^3+4*n^2+7*n+5]，AppendTo[lst，p]]，{n，200}]；第一次

%t选择[表[n^4+n^3+4n^2+7n+5，{n，500}]，PrimeQ]（*哈维·P·戴尔，2011年6月19日*）

%o（PARI）用于（n=1,1e3，if（i素数（k=n^4+n^3+4*n^2+7*n+5），打印1（k“，”））\\查尔斯·格里塔斯IV，2011年6月9日

%Y参考A088548、A088550、A156018。

%K nonn公司

%O 1,1号机组

%A _Rafael Parra Machio，2011年6月9日

%E重复的Mathematica程序被_Harvey P.Dale_删除，2011年6月19日