Search: id:A006567 Results 1-1 of 1 results found. %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, Table of n, a(n) for n=1..10000 %H A006567 Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics. %H A006567 C. K. Caldwell, The Prime Glossary, emirp %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 Search completed in 0.002 seconds