A135240 Numbers n such that phi(sigma(n))=2n.
36, 20575296
Offset: 1
Examples
phi(sigma(20575296))=phi(71238999)=41150592=2*20575296, so 20575296 is in the sequence.
Programs
-
Mathematica
Do[If[EulerPhi[DivisorSigma[1,n]]==2n,Print[n]],{n,350000000}]
Comments