? for(n=3,10,for(a=0,2000,for(b=a+1,2000,c=round(((a^n+b^n)/2)^(1/n));if(a^n+b^n
==2*c^n,print([a,b,c])))))
?