login
A161118
Honaker emirps: terms in A033548 that are emirps.
0
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
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
Sequence in context: A031744 A031654 A031531 * A031711 A253216 A210301
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jun 02 2009
EXTENSIONS
Sequence corrected and extended by Lekraj Beedassy, Jun 06 2009
STATUS
approved