A179034 Emirps whose only prime digits are 3's.

13, 31, 113, 311, 389, 983, 1031, 1033, 1103, 1193, 1301, 1381, 1399, 1439, 1831, 1913, 1933, 3011, 3019, 3049, 3083, 3089, 3109, 3163, 3169, 3191, 3301, 3319, 3343, 3389, 3391, 3433, 3463, 3469, 3613, 3643, 3803, 3889, 3911, 9013, 9103, 9133, 9341

Offset: 1

Author

Lekraj Beedassy, Jun 25 2010

Keywords

• base
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A006567, A179035.

Programs

Mathematica

em3Q[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; idn!= ridn&&PrimeQ[FromDigits[ridn] && Count[idn,2] == Count[idn,5] == Count[idn,7] == 0&&Count[idn,3]>0]]; Select[Prime[Range[1200]],em3Q] (* Harvey P. Dale, Nov 30 2012 *)

Extensions

Corrected by Ray Chandler, Jul 13 2010