A136538 Numbers n such that reversal(n)=2*phi(n).
2, 4, 8, 42, 84, 2763, 4032, 8064, 67314, 86558, 291483, 2700063, 2700000063, 4039603962, 46420566582, 6739054689866
Offset: 1
Examples
Reversal(42)=24=2*12=2*phi(42), so 42 is in the sequence. [Example corrected Jan 25 2008]
Programs
-
Mathematica
Do[If[FromDigits@Reverse@IntegerDigits@n==2*EulerPhi[n], Print[n]],{n,100000000}]
Extensions
a(13)-a(15) from Giovanni Resta, Oct 28 2012
a(16) from Giovanni Resta, Aug 12 2019
Comments