OFFSET
1,1
MATHEMATICA
Select[Prime[Range[26, 75000]], !PalindromeQ[#]&&PrimeQ[IntegerReverse[ #]] && Count[ DigitCount[#], 0]==8&&MemberQ[DigitCount[#], 1]&] (* Harvey P. Dale, Sep 17 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Feb 22 2010
STATUS
approved