A178092 Lesser of emirp pairs whose digital sums are also emirps (A178091).

157, 179, 337, 359, 1097, 1237, 1259, 1381, 1439, 1453, 1471, 1583, 1619, 1723, 3019, 3109, 3163, 3257, 3343, 3347, 3527, 7699, 7879, 9679, 10039, 10079, 10273, 10453, 10457, 10651, 10781, 10853, 11083, 11159, 11353, 11447, 11551, 11717, 11731, 11933, 12073

Offset: 1

Author

Lekraj Beedassy, May 19 2010

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A109308, A178091, A178093.

Programs

Mathematica

emrp[n_]:=Module[{e=FromDigits[Reverse[IntegerDigits[n]]]},If[n!=e&&PrimeQ[ e],{n,e},{}]]; dsemQ[m_]:=Module[ {ds=Total[IntegerDigits[m]],em}, em= FromDigits[ Reverse[IntegerDigits[ ds]]];em!=ds&& And@@PrimeQ[{ds,em}]]; Select[Transpose[Rest[Union[Sort/@(emrp/@Prime[Range[2000]])]]][[1]],dsemQ] (* Harvey P. Dale, Sep 11 2013 *)

Extensions

Corrected and extended by Harvey P. Dale, Sep 11 2013