%I A069706
%S A069706 2,3,5,7,11,13,17,31,37,71,73,79,97,101,107,113,131,149,151,157,167,
%T A069706 179,181,191,199,311,313,337,347,353,359,373,383,389,701,709,727,733,
%U A069706 739,743,751,757,761,769,787,797,907,919,929,937,941,953,967,971,983
%N A069706 Primes with property that swapping first and last digits also gives a 
               prime.
%C A069706 This is not the same as A007500, "palindromic" primes.
%e A069706 1049 and 9041 both are primes hence both are members.
%t A069706 Do[t = IntegerDigits[ Prime[n]]; u = t; u[[1]] = t[[ -1]]; u[[ -1]] = 
               t[[1]]; t = FromDigits[u]; If[ PrimeQ[t], Print[ Prime[n]]], {n, 
               1, 300}]
%Y A069706 Cf. A007500, A069707, A069708.
%Y A069706 Sequence in context: A086498 A055387 A061461 this_sequence A007500 A090933 
               A107845
%Y A069706 Adjacent sequences: A069703 A069704 A069705 this_sequence A069707 A069708 
               A069709
%K A069706 nonn,base
%O A069706 1,1
%A A069706 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 08 2002
%E A069706 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 12 
               2002
%E A069706 Edited by N. J. A. Sloane (njas(AT)research.att.com), Jan 20 2009