取[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日*）
