求不定方程\(a^3+b^3+c^3=d^3\)的非零素数解

mathematica

对于含有负数的解,装逼用一行代码,如下:

1. Clear["Global`*"];(*Clear all variables*)
   
2. (*装逼写成一行代码*)
   
3. Select[Union@Flatten@#&/@GatherBy[Append[#,Total[#^3]]&/@Subsets[Prime@Range[1,10000],{2}],#[[3]]&],Length@#>3&]
   

复制代码