login
Near-repdigit emirps.
2

%I #6 Sep 17 2021 19:02:25

%S 113,199,311,337,733,991,1151,1181,1511,1811,3343,3373,3433,3733,7177,

%T 7577,7717,7757,11161,16111,77797,79777,98999,99989,111119,111211,

%U 112111,323333,333323,333337,333433,334333,733333,777787,777877,778777,787777,911111

%N Near-repdigit emirps.

%C Entries of A164937 that are emirps (A006567), i.e., A164937 INTERSECTION A006567.

%t Select[Prime[Range[26,75000]],!PalindromeQ[#]&&PrimeQ[IntegerReverse[ #]] && Count[ DigitCount[#],0]==8&&MemberQ[DigitCount[#],1]&] (* _Harvey P. Dale_, Sep 17 2021 *)

%Y Cf. A164937, A173595, A173596

%K nonn,base

%O 1,1

%A _Lekraj Beedassy_, Feb 22 2010