OFFSET
1,2
MATHEMATICA
palnpdQ[n_]:=And@@Table[FreeQ[IntegerDigits[n], i], {i, {2, 3, 5, 7}}] && PalindromeQ[n]; Select[Range[7000], palnpdQ] (* Harvey P. Dale, Oct 14 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 27 2003
EXTENSIONS
More terms from Harvey P. Dale, Oct 14 2017
STATUS
approved