编辑

经核准的

选择[Prime[Range[200000]]、AllTrue[#+{4、30、120、340、780、1554}、PrimeQ]&]（*程序使用Mathematica版本10*中的AllTrue函数）(*哈维·P·戴尔，2017年1月10日*）

经核准的

编辑

提出

经核准的

编辑

提出

米歇尔·马库斯：我认为k=1到6就足够了

a（1）=43:0^4+0^3+0^2+0+43=43；1^4+1^3+1^2+1+43 = 47; 2^4+2^3+2^2+2+43 = 73; 3^4+3^3+3^2+3+43 = 163; 4^4+4^3+4^2+4+43 = 383; 5^4+5^3+5^2+5+43 = 823; 6^4+6^3+6^2+6+43 = 1597; 这七个都是质数。

a（1）=43：

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

1^4 + 1^3 + 1^2 + 1 + 43 = 47;

2^4 + 2^3 + 2^2 + 2 + 43 = 73;

3^4 + 3^3 + 3^2 + 3 + 43 = 163;

4^4 + 4^3 + 4^2 + 4 + 43 = 383;

5^4 + 5^3 + 5^2 + 5 + 43 = 823;

6^4 + 6^3 + 6^2 + 6 + 43 = 1597;

这七个都是质数。

提出

编辑

K.D.Bajpai：根据Jon E.Schoenfield在A247949中的建议修改的示例。

编辑

提出

米歇尔·马库斯：名称请参见A247949

K.D.Bajpai，<a href=“/247966英镑/b247966.txt“>n表，n=1..1405时为a（n）</a>

分配给K.D.Bajpai

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

43, 457, 967, 1093, 5923, 8233, 11923, 15787, 41113, 80683, 151783, 210127, 213943, 294919, 392737, 430879, 495559, 524827, 537007, 572629, 584557, 711727, 730633, 731593, 1097293, 1123879, 1138363, 1149163, 1396207, 1601503, 1739557, 1824139, 2198407, 2223853

1,1

a（1）=43:0^4+0^3+0^2+0+43=43；1^4+1^3+1^2+1+43 = 47; 2^4+2^3+2^2+2+43 = 73; 3^4+3^3+3^2+3+43 = 163; 4^4+4^3+4^2+4+43 = 383; 5^4+5^3+5^2+5+43 = 823; 6^4+6^3+6^2+6+43 = 1597; 这七个都是质数。

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

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

囊性纤维变性。A144051号,A187057号,A187058号,A187060号,A190800个,A191456号,A191457号,A191458号.

分配

非n,新的

K.D.Bajpai2015年1月11日

经核准的

编辑

分配给K.D.Bajpai

回收利用

分配

编辑

经核准的