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