A308664 Numbers k such that tau(k) and phi(k) are the legs of a Pythagorean triple.
20, 36, 60, 100, 300
Offset: 1
Examples
60 is in this sequence because tau(60) = 12 and phi(60) = 16, legs of the Pythagorean triple {12, 16, 20} (12^2 + 16^2 = 20^2).
Programs
-
Mathematica
Select[Range[300], IntegerQ@Sqrt[DivisorSigma[0, #]^2 + EulerPhi[#]^2] &] (* Amiram Eldar, Jul 26 2019 *)
-
PARI
for(i = 1, 2000, a = eulerphi(i); b = numdiv(i); if(issquare(a^2 + b^2), print1(i,", ")))
Extensions
"full" keyword added by Max Alekseyev, May 30 2024
Comments