A136543 Numbers n such that phi(n)+sigma(n)=4*reversal(n).
793, 79993, 2152311, 79999993, 7999999993, 799999999993
Offset: 1
Examples
phi(2152311)+sigma(2152311)=1217664+3312384=4*1132512=4*reversal(2152311), so 2152311 is in the sequence.
Programs
-
Mathematica
Do[If[4*FromDigits@Reverse@IntegerDigits@n==EulerPhi@n+ DivisorSigma[1,n],Print[n]],{n,100000000}]
Extensions
a(5)-a(6) from Giovanni Resta, Nov 03 2012
Comments