%I A006567 M4887
%S A006567 13,17,31,37,71,73,79,97,107,113,149,157,167,179,199,311,337,347,359,
%T A006567 389,701,709,733,739,743,751,761,769,907,937,941,953,967,971,983,991,
%U A006567 1009,1021,1031,1033,1061,1069,1091,1097,1103,1109,1151,1153,1181,1193
%N A006567 Emirps (primes whose reversal is a different prime).
%D A006567 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, 
               Academic Press, 1995 (includes this sequence).
%D A006567 M. Gardner, The Magic Numbers of Dr Matrix. Prometheus, Buffalo, NY, 
               1985, p. 230.
%H A006567 T. D. Noe, <a href="b006567.txt">Table of n, a(n) for n=1..10000</a>
%H A006567 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Emirp.html">Link to a section of The World of Mathematics.</a>
%H A006567 C. K. Caldwell, The Prime Glossary, <a href="http://primes.utm.edu/glossary/
               page.php?sort=emirp">emirp</a>
%t A006567 f[n_] := ToExpression[StringReverse[ToString[n]]]; Select[ Range[ 1200 
               ], PrimeQ[ f[ # ] ] && PrimeQ[ # ] && f[ # ] != # & ] - from Santi 
               Spadaro (spados(AT)katamail.com), Oct 14 2001
%t A006567 ndig[ a_, b_ ] := 10a + b tonum[ dig_ ] := Fold[ ndig, 0, dig ] f[ n_ 
               ] := tonum[ Reverse[ IntegerDigits[ n ] ] ] Select[ Range[ 1200 ], 
               PrimeQ[ f[ # ] ] && PrimeQ[ # ] && f[ # ] =!= # & ] - from Santi 
               Spadaro (spados(AT)katamail.com), Oct 14 2001
%o A006567 (MAGMA) [ n : n in [1..1194] | n ne rev and IsPrime(n) and IsPrime(rev) 
               where rev is Seqint(Reverse(Intseq(n))) ]; - from Sergei Haller (sergei(AT)sergei-haller.de), 
               Dec 21 2006
%Y A006567 Cf. A003684, A007628, A046732, A048051, A048052, A048053, A048054, A048895.
%Y A006567 A007500 = A002385 union this sequence.
%Y A006567 Sequence in context: A107159 A138375 A161401 this_sequence A108388 A083983 
               A129338
%Y A006567 Adjacent sequences: A006564 A006565 A006566 this_sequence A006568 A006569 
               A006570
%K A006567 nonn,nice,easy,base
%O A006567 1,1
%A A006567 N. J. A. Sloane (njas(AT)research.att.com).
%E A006567 More terms from James A. Sellers (sellersj(AT)math.psu.edu), Jan 22 2000