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

Links

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

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

Crossrefs

Cf. A109308, A178091, A178093.

Sequence in context: A180551 A096704 A178091 * A140035 A007356 A236537

Adjacent sequences: A178089 A178090 A178091 * A178093 A178094 A178095

Keyword

nonn,base

Author

Lekraj Beedassy, May 19 2010

Extensions

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

Status

approved