MatsGranvik

Misha Lavrov Pythagorean triples Euler totient

Jul 7th, 2018
237
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.71 KB | None | 0 0
  1. (*start*)
  2. p = 1;
  3. t = 2;
  4.  
  5. a = 3;
  6. b = 4;
  7. c = 5;
  8.  
  9. d = a*b*c
  10.  
  11. a = a*d^p;
  12. b = b*d^p;
  13. c = c*d^p;
  14.  
  15.  
  16. a^t + b^t
  17. c^t
  18. %% - %
  19.  
  20. EulerPhi[a^t] + EulerPhi[b^t]
  21. EulerPhi[c^t]
  22. %% - %
  23.  
  24. EulerPhi[EulerPhi[a^t]] + EulerPhi[EulerPhi[b^t]]
  25. EulerPhi[EulerPhi[c^t]]
  26. %% - %
  27.  
  28. EulerPhi[EulerPhi[EulerPhi[a^t]]] + EulerPhi[EulerPhi[EulerPhi[b^t]]]
  29. EulerPhi[EulerPhi[EulerPhi[c^t]]]
  30. %% - %
  31.  
  32. EulerPhi[EulerPhi[EulerPhi[EulerPhi[a^t]]]] +
  33. EulerPhi[EulerPhi[EulerPhi[EulerPhi[b^t]]]]
  34. EulerPhi[EulerPhi[EulerPhi[EulerPhi[c^t]]]]
  35. %% - %
  36. EulerPhi[EulerPhi[EulerPhi[EulerPhi[EulerPhi[a^t]]]]] +
  37. EulerPhi[EulerPhi[EulerPhi[EulerPhi[EulerPhi[b^t]]]]]
  38. EulerPhi[EulerPhi[EulerPhi[EulerPhi[EulerPhi[c^t]]]]]
  39. %% - %
  40. (*end*)
Advertisement
Add Comment
Please, Sign In to add comment