|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Intersection of A033548 and A006567. [From Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 06 2009]
Palindromic primes are not included. [From Harvey P. Dale, June 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] (* From Harvey P. Dale, June 13 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A031621 A031744 A031531 * A031711 A043597 A043837
Adjacent sequences: A161115 A161116 A161117 * A161119 A161120 A161121
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 02 2009
|
|
|
EXTENSIONS
| Sequence corrected and extended. Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 06 2009
|
| |
|
|
