A173594 Near-repdigit emirps.

113, 199, 311, 337, 733, 991, 1151, 1181, 1511, 1811, 3343, 3373, 3433, 3733, 7177, 7577, 7717, 7757, 11161, 16111, 77797, 79777, 98999, 99989, 111119, 111211, 112111, 323333, 333323, 333337, 333433, 334333, 733333, 777787, 777877, 778777, 787777, 911111

Offset: 1

Author

Lekraj Beedassy, Feb 22 2010

Keywords

• nonn
• base

Comments

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

Crossrefs

Cf. A164937, A173595, A173596

Programs

Mathematica

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