取[Select[Intersection[Flatten[Table[Abs[x^y-y^x],{x,2,120},{y,2,120}]],PrimeQ[#]&],25]
nn=10^50;n=1;t=并集[Reap[While[n++;k=n+1;num=Abs[n^k-k^n];num<nn,母猪[num];而[k++;num=n^k-k^n;num<nn,Sow[num]]][[2,1]]];选择[t,PrimeQ]
使用[{nn=30},Take[Sort[Select[#[[1]]^#[2]]-#[2]]^#[1]]&/@子集[Range[2nn],{2}],#>0&&PrimeQ[#]&]],nn]](*哈维·P·戴尔,2013年11月23日*)