%I A029971
%S A029971 2,13,23,151,173,233,757,937,1093,1249,1429,1487,1667,1733,1823,
%T A029971 1913,1979,2069,8389,9103,10111,12301,14951,16673,16871,18593,60103,
%U A029971 60913,61507,63127,69697,73243,78979,80599,82003,82813,83407,85027
%N A029971 Palindromic primes in base 3.
%H A029971 P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of 
               Palindromic Primes</a>
%t A029971 Do[s = RealDigits[n, 3][[1]]; If[PrimeQ[n], If[FromDigits[s] == FromDigits[Reverse[s]], 
               Print[n]]], {n, 1, 8500}]
%Y A029971 Sequence in context: A093301 A079397 A118524 this_sequence A090526 A031038 
               A017413
%Y A029971 Adjacent sequences: A029968 A029969 A029970 this_sequence A029972 A029973 
               A029974
%K A029971 nonn,base
%O A029971 1,1
%A A029971 Patrick De Geest (pdg(AT)worldofnumbers.com)