A097647 Non-palindromic numbers n such that phi(n) = phi(reversal(n)).
190, 427, 429, 724, 924, 4147, 4697, 6276, 6726, 7414, 7964, 9079, 9709, 10040, 10940, 14450, 15860, 19190, 20493, 20553, 28092, 28215, 29082, 35502, 39402, 41847, 42777, 44629, 46899, 49929, 51282, 51845, 53075, 54815, 57035, 57677
Offset: 1
Examples
10040 is in the sequence because phi(10040)=phi(4001)=4000.
Programs
-
Mathematica
Do[If[n!=FromDigits[Reverse[IntegerDigits[n]]]&&EulerPhi[n]==EulerPhi[ FromDigits[Reverse[IntegerDigits[n]]]], Print[n]], {n, 80000}]
Comments