%I#29 2017年1月10日10:49:53

%S 4345796710935923823311923157874111380683151783210127，

%电话：21394329491939273743087945559524827537007572629584557，

%电话：711727730633731593109729311238791138631149163139620716015031739557182413921984072223853

%N素数p，使得多项式k^4+k^3+k^2+k+p只产生k=0…6的素数。

%H K.D.Bajpai，n表，n=1..1405的a（n）</a>

%e a（1）=43：

%e 0 ^4+0 ^3+0 ^2+0+43=43；

%e1^4+1^3+1^2+1+43=47；

%e 2^4+2^3+2^2+2+43=73；

%e 3^4+3^3+3^2+3+43=163；

%e 4^4+4^3+4^2+4+43=383；

%e 5^4+5^3+5^2+5+43=823；

%e 6^4+6^3+6^2+6+43=1597；

%这七个都是质数。

%t选择[f=k^4+k^3+k^2+k；k={0,1,2,3,4,5,6}；素数[Range[2000000]]，和@@PrimeQ[#+f]&]

%t选择[Prime[Range[200000]]，AllTrue[#+{4,301203407801554}，PrimeQ]&]（*程序使用Mathematica版本10*中的AllTrue函数）（*Harvey P.Dale_，2017年1月10日*）

%o（PARI）表示素数（p=1，1e6，if（isprime（p+0）&isprime

%Y参见A144051、A187057、A18705、A18706、A190800、A191456、A19145、A1911458。

%K nonn公司

%O 1,1号机组

%A _K.D.Bajpai，2015年1月11日