OFFSET
1,2
COMMENTS
No further terms up to 1 million. - Harvey P. Dale, Oct 04 2024
EXAMPLE
43407*phi(43407)*phi(phi(43407)) = 6739855589376.
MATHEMATICA
Select[Range[44000], PalindromeQ[# EulerPhi[#] EulerPhi[EulerPhi[#]]]&] (* Harvey P. Dale, Oct 04 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved