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
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, May 19 2010
EXTENSIONS
Corrected and extended by Harvey P. Dale, Sep 11 2013
STATUS
approved