%I#21 2014年2月18日09:50:05

%S 2,3,5,11,17,53,5910110315115716719319723935379397419，

%电话：43346747950359964165966174378788190791198310491109，

%电话：112311531201122912911307137313991429153116011621166317471753

%N素数p，使得p^4-p^3-1也是素数。

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

%e5在序列中，因为5是素数，5^4-5^3-1=499也是素数。

%e17在序列中，因为17是素数，17^4-17^3-1=78607也是素数。

%p KD:=proc（）局部a，b；a： =ithprime（n）；b： =a^4-a^3-1；如果是质数（b），则返回（a）；fi；结束：序列（KD（），n=1..400）；

%t c=0；a=2；Do[k=素数[n]；如果[PrimeQ[k^4-k^3-1]，c=c+1；打印[c，“”，k]]，{n，100000}]；（*Bajpai*）

%t选择[Prime[Range[200]]，PrimeQ[#^4-#^3-1]&]（*_Alonso del Arte_2014年2月17日*）

%o（PARI）s=[]；对于素数（p=22000，if（isprime（p^4-p^3-1），s=concat（s，p））；2014年2月17日，科林·巴克

%Y参考A000040、A237639、A237641、A237642。

%K nonn公司

%O 1,1号机组

%A _K.D.Bajpai，2014年2月16日