A085331 Numbers n such that phi(rev(n))=n.
1, 12, 36, 192, 1992, 2016, 31067664, 39206496, 1564356432, 3937403136, 15600000432, 22871605008, 156043560432, 156439956432, 1560000000432, 1956000004392
Offset: 1
Examples
phi[{1,21,63,291,2991,6102}] = {1,12,36,192,1992,2016}
Programs
-
Mathematica
v = {1}; Do[ If[ n == EulerPhi[ FromDigits[ Reverse[ IntegerDigits [ n ] ] ] ], v = Append[ v, n ]; Print[ v ], If[ Mod[ n, 1000000 ] == 0, Print[ -n ] ] ], {n, 2, 2050000000, 2} ] (Firoozbakht)
Extensions
The terms 31067664, 39206496, 1564356432 are from Farideh Firoozbakht, Jan 08 2005
a(10)-a(12) from Donovan Johnson, Feb 03 2012
a(13)-a(16) from Giovanni Resta, Aug 06 2019
Comments