A178323 Numbers n such that phi(reversal(n)) + sigma(reversal(n)) = n.
572, 592, 5992, 599992, 2014080, 5999992, 594637872, 599999992, 599999999992
Offset: 1
Examples
2014080 = phi(804102) + sigma(804102), so 2014080 is in the sequence.
Programs
-
Mathematica
r[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; Do[If[EulerPhi[r[n]]+DivisorSigma[1,r[n]]==n,Print[n]],{n,1000000000}]
Extensions
a(9) from Giovanni Resta, Sep 04 2018
Comments