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,1

Links

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

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 *)

Crossrefs

Cf. A006567, A179035.

Sequence in context: A368051 A043226 A044006 * A179035 A007628 A335787

Adjacent sequences: A179031 A179032 A179033 * A179035 A179036 A179037

Keyword

base,nonn

Author

Lekraj Beedassy, Jun 25 2010

Extensions

Corrected by Ray Chandler, Jul 13 2010

Status

approved