OFFSET
1,1
COMMENTS
Subsequence of A128375.
MATHEMATICA
Select[Flatten[Table[FromDigits/@Tuples[{4, 6, 8, 9}, n], {n, 9}]], PalindromeQ[ #] && PrimeQ[#]&] (* Harvey P. Dale, Dec 20 2018 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Lekraj Beedassy, Feb 27 2007
EXTENSIONS
Corrected by Ray Chandler, Feb 28 2007
STATUS
approved