A137833 Emirps with a prime number of only prime digits.

37, 73, 337, 733, 32233, 32257, 32353, 32377, 32537, 33223, 35227, 35257, 35323, 35327, 35537, 72253, 72337, 72353, 72577, 73277, 73327, 73523, 73553, 75223, 75253, 75577, 77237, 77323, 77527, 77557, 3223357, 3223537, 3225323, 3225737

Offset: 1

Author

Lekraj Beedassy, Feb 12 2008

Keywords

• base
• nonn

Links

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

Crossrefs

Cf. A137834, A137835.

Programs

Mathematica

Select[Prime@Range[235000], # != IntegerReverse[ # ] && PrimeQ[IntegerReverse[ # ]] && ContainsOnly[IntegerDigits[ # ], {2,3,5,7}] &&PrimeQ[IntegerLength[#]]&] (* James C. McMahon, Jun 03 2025 *)
Table[Select[FromDigits/@Tuples[{2,3,5,7},p],!PalindromeQ[#]&&AllTrue[{#,IntegerReverse[#]},PrimeQ]&],{p,Prime[Range[4]]}]//Flatten (* Harvey P. Dale, Aug 02 2025 *)

Formula

Subsequence of A128388.

Extensions

More terms from Sean A. Irvine, Mar 23 2010