A230019 Numbers n such that sigma(n) + phi(n) = reversal(n) - 3.
199993, 17333334, 19999993, 199999999993, 1999999999993
Offset: 1
Crossrefs
Programs
-
Mathematica
r[n_] := FromDigits[Reverse[IntegerDigits[n]]]; Do[If[DivisorSigma[1, n] + EulerPhi[n] == r[n]-3, Print[n]], {n, 1000000000}]
Extensions
a(4)-a(5) from Giovanni Resta, Feb 06 2014
Comments