A114931 Numbers n such that phi(n)=4*reversal(n).
10, 20, 40, 50, 80, 210, 420, 630, 711, 831, 840, 2910, 29910, 40320, 80640, 98361, 673140, 865580, 8656341, 466760130, 694602930, 821412711, 23465346510, 40396039620, 63130473930, 234000006510, 464205665820, 2340653406510, 2346599346510
Offset: 1
Examples
20 is in the sequence because phi(20)=4*2=4*reversal(20).
Programs
-
Mathematica
Do[If[EulerPhi[n]==4*FromDigits[Reverse[IntegerDigits[n]]], Print[n]], {n, 550000000}]
Extensions
a(21)-a(27) from Giovanni Resta, Oct 28 2012
a(28)-a(29) from Giovanni Resta, Aug 12 2019
Comments