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

Comments

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

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

Links

Table of n, a(n) for n=1..35.

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

Crossrefs

Cf. A006567, A033548.

Sequence in context: A031744 A031654 A031531 * A031711 A253216 A210301

Adjacent sequences: A161115 A161116 A161117 * A161119 A161120 A161121

Keyword

nonn,base

Author

Lekraj Beedassy, Jun 02 2009

Extensions

Sequence corrected and extended by Lekraj Beedassy, Jun 06 2009

Status

approved