%I A029972
%S A029972 2,3,5,17,29,59,257,373,409,461,509,787,839,887,907,991,4289,4561,
%T A029972 5189,5669,5861,6133,6217,6553,6761,7309,7517,7789,7853,12899,13171,
%U A029972 13591,14327,14347,14411,14683,14747,14891,15083,15227,15439,15647
%N A029972 Palindromic primes in base 4.
%H A029972 P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of 
               Palindromic Primes</a>
%t A029972 Do[s = RealDigits[n, 4][[1]]; If[PrimeQ[n], If[FromDigits[s] == FromDigits[Reverse[s]], 
               Print[n]]], {n, 1, 1600}]
%Y A029972 Sequence in context: A065725 A057468 A127062 this_sequence A077498 A118958 
               A163588
%Y A029972 Adjacent sequences: A029969 A029970 A029971 this_sequence A029973 A029974 
               A029975
%K A029972 nonn,base
%O A029972 1,1
%A A029972 Patrick De Geest (pdg(AT)worldofnumbers.com)