A161118 Honaker emirps: terms in A033548 that are emirps.

1091, 1301, 1913, 1933, 3067, 3433, 7481, 7523, 9103, 10247, 10429, 10711, 11071, 11353, 11701, 11731, 13297, 13457, 13933, 14447, 14843, 14923, 15263, 15803, 16073, 16193, 16451, 18013, 18041, 18307, 32009, 32261, 34471, 35027, 35129

Offset: 1

Author

Lekraj Beedassy, Jun 02 2009

Keywords

• nonn
• base

Comments

Intersection of A033548 and A006567. - Lekraj Beedassy, Jun 06 2009

Palindromic primes are not included. - Harvey P. Dale, Jun 13 2011

Crossrefs

Cf. A006567, A033548.

Programs

Mathematica

nn=3800;emrpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; ridn!=idn && PrimeQ[FromDigits[ridn]]]; Select[Transpose[ Select[ Thread[ {Prime[Range[nn]],Range[nn]}], Total[IntegerDigits[First[#]]] == Total[IntegerDigits[Last[#]]]&]][[1]],emrpQ] (* Harvey P. Dale, Jun 13 2011 *)

Extensions

Sequence corrected and extended by Lekraj Beedassy, Jun 06 2009