A128376 Palindromic primes with only composite digits (i.e.,4,6,8,9).
94649, 94849, 94949, 96469, 98689, 9446449, 9686869, 9888889, 9889889, 9896989, 9989899, 944999449, 946666649, 946999649, 948898849, 964444469, 964989469, 966848669, 968646869, 968666869, 968868869, 968898869, 968999869, 986444689
Offset: 1
Programs
-
Mathematica
Select[Flatten[Table[FromDigits/@Tuples[{4,6,8,9},n],{n,9}]],PalindromeQ[ #] && PrimeQ[#]&] (* Harvey P. Dale, Dec 20 2018 *)
Extensions
Corrected by Ray Chandler, Feb 28 2007
Comments