|
n=4；pwr=2^n；xmax=2；r=Range[xmax]；num=r^pwr+r^pwr；表格[虽然[p=p=Min[num]；x=位置[num，p][[1，1]]]；y=r[[x]]]+；num[[x]]]=x^pwr+r[[x]]^pwr；若[x=x=x最大，xmax++；附录[r，xmax+1]；附录[r，xmax+1]；附录[num，xmax+1]；附录[num，xmax^pwr，xmax+1]；附录[num，xmax^pwr+1（xmax+1）^pwr]；[pwr]；[pwr，x，啊！素数[p]]；p，{15}]
q=16；lst={}；Do[Do[p=n^q+m^q；如果[PrimeQ[p]，追加到[lst，p]]，{n，0，5！}]，{m，0，5！}]；lst；长度[lst]；取[Union[lst]，55](*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年2月21日*）
并集[选择[Total[#^16]&/@Tuples[Range[20]，2]，PrimeQ]](*哈维·P·戴尔2013年11月3日*）
| 