A115926 Numbers k such that phi(k) = reversal(k)-k.
37, 397, 1853, 15503, 48776, 198683, 200882, 1061361, 3542805, 3564217, 3868867, 3962197, 4438616, 19844683, 198444683, 202195682, 309520655, 431092646, 439419646, 500729929, 535973599, 3566790217, 3963436297, 4149753226, 17296101143, 39560402197
Offset: 1
Examples
If n=37, phi(37) = 36 = 73-37.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..31
Crossrefs
Cf. A072393.
Programs
-
Mathematica
Do[If[EulerPhi[n]==FromDigits[Reverse[IntegerDigits[n]]]-n, Print[n]], {n, 600000000}] (* Jessica M. Cornwall (jmc510(AT)psu.edu), Apr 05 2006 *)
Extensions
More terms from Jessica M. Cornwall (jmc510(AT)psu.edu), Apr 05 2006
a(22)-a(31) from Giovanni Resta, Oct 28 2012
Comments