A115899 Numbers k such that phi(k) + prime(k) is a palindrome.
1, 2, 3, 4, 10, 15, 27, 30, 38, 39, 61, 62, 63, 64, 70, 72, 87, 96, 109, 123, 126, 137, 148, 153, 156, 202, 269, 286, 508, 716, 889, 1019, 1037, 1082, 1142, 1162, 1179, 1199, 1267, 1312, 1391, 1399, 1405, 1448, 1491, 1672, 1705, 1744, 1909, 1980
Offset: 1
Examples
phi(1448) + prime(1448) = 720 + 12101 = 12821.
Programs
-
Mathematica
Select[Range[2000],PalindromeQ[EulerPhi[#]+Prime[#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 30 2018 *)