|
最大值＝2；r＝r^ pWr+r^ PWR；表[[ p=min [num ]；x＝位置[num，p] [[x] ]；r[[x] +++；num [[x] ]＝x^ pWr+r[[x] ^ ^ PWR；I[x=xxMAX，xMAX++；AppDeto [r，xMax +4]；附录[num，xMAX ^ PWR+（xMAX +1）^ PWR] ]；n＝4；PWR＝2 ^ n；x；Primeq [P]；p，{ 15 }
q＝16；LST＝{}；do[do= n^ q+m ^ q；如果[Primeq[P]，AppDeto [LST，P] ]，{n，0, 5！}，{m，0, 5！[L]；长度[LS]；取[联合[ LS]，55 ]（*）弗拉迪米尔-约瑟夫斯蒂芬奥尔洛夫斯基2月21日2009＊）
[选择] [合计[α^ ^ 16 ] /@元组[范围[ 20 ]，2 ]，Primeq ] ]（*）哈维·P·戴尔，11月03日2013日）
| 