%I #10 Oct 18 2014 10:03:58
%S 157,179,337,359,1097,1237,1259,1381,1439,1453,1471,1583,1619,1723,
%T 3019,3109,3163,3257,3343,3347,3527,7699,7879,9679,10039,10079,10273,
%U 10453,10457,10651,10781,10853,11083,11159,11353,11447,11551,11717,11731,11933,12073
%N Lesser of emirp pairs whose digital sums are also emirps (A178091).
%H Harvey P. Dale, <a href="/A178092/b178092.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%Y Cf. A109308, A178091, A178093.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, May 19 2010
%E Corrected and extended by _Harvey P. Dale_, Sep 11 2013