A230006 Numbers k such that sigma(k) + phi(k) = reversal(k) + 1.
1, 37, 225, 397, 11112722, 1309286244182
Offset: 1
Examples
sigma(37)+phi(37) = 38+36 = 73+1 = reversal(37)+1.
Programs
-
Mathematica
r[n_] := FromDigits[Reverse[IntegerDigits[n]]]; Do[If[DivisorSigma[1, n] + EulerPhi[n] == r[n]+1, Print[n]], {n, 1000000000}]
Extensions
a(6) from Giovanni Resta, Feb 06 2014
Comments