OFFSET
1,2
EXAMPLE
phi(1448) + prime(1448) = 720 + 12101 = 12821.
MATHEMATICA
Select[Range[2000], PalindromeQ[EulerPhi[#]+Prime[#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 30 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved