%2014年10月18日10:03:58
%S 1571793373591097123712591381143914531471158316191723,
%电话:3019310931633257334334735277699787999679100391007910273,
%电话:1045310457106511078110853110831115911353114471155111717117311193312073
%N较小的emirp对,其数字和也是emirp(A178091)。
%H Harvey P.Dale,n的表,n=1..10000的a(n)</a>
%t emrp[n_]:=模块[{e=FromDigits[Reverse[IntegerDigits[n]]},如果[n!=e&&PrimeQ[e],{n,e},{}]];dsemQ[m_]:=模块[{ds=Total[IntegerDigits[m]],em},em=FromDigits[Reverse[Integer Digits]]];哼=ds&&And@@PrimeQ[{ds,em}]];选择[Transpose[Rest[Union[Sort/@(emrp/@Prime[Range[2000]])][[1],dsemQ](*哈维·P·戴尔,2013年9月11日*)
%Y参考A109308、A178091、A178093。
%K nonn,基础
%O 1,1号机组
%A _Lekraj Beedassy,2010年5月19日
%E由哈维·P·达尔修正和扩展,2013年9月11日
|