OFFSET
1,1
COMMENTS
Palindromic primes are not included. - Harvey P. Dale, Jun 13 2011
MATHEMATICA
nn=3800; emrpQ[n_]:=Module[{idn=IntegerDigits[n], ridn}, ridn=Reverse[idn]; ridn!=idn && PrimeQ[FromDigits[ridn]]]; Select[Transpose[ Select[ Thread[ {Prime[Range[nn]], Range[nn]}], Total[IntegerDigits[First[#]]] == Total[IntegerDigits[Last[#]]]&]][[1]], emrpQ] (* Harvey P. Dale, Jun 13 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jun 02 2009
EXTENSIONS
Sequence corrected and extended by Lekraj Beedassy, Jun 06 2009
STATUS
approved