A230013 Numbers n such that phi(n) + sigma(n) = (3/2)*reversal(n).
2993, 29993, 2999993, 230880803, 299999993, 2999999993, 2999999999993
Offset: 1
Programs
-
Mathematica
r[n_]:=FromDigits[Reverse[IntegerDigits[n]]];Do[If[c=r[n]; c>(4/3)*n && DivisorSigma[1,n] + EulerPhi[n] == (3/2)c, Print[n]], {n,100000000}]
Extensions
a(4)-a(7) from Giovanni Resta, Feb 06 2014
Comments