%I A046477
%S A046477 2,3,5,7,373,13331,30103,1496941,1970791
%N A046477 Palindromic primes in bases 8 and 10.
%C A046477 373{10} gives 373{8} but also 373{4} and 373{9}.
%H A046477 P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of 
               Palindromic Primes</a>
%t A046477 Do[s = RealDigits[n, 8][[1]]; t = RealDigits[n, 10][[1]]; If[PrimeQ[n], 
               If[FromDigits[t] == FromDigits[Reverse[t]], If[FromDigits[s] == FromDigits[Reverse[s]], 
               Print[n]]]], {n, 1, 10^5}]
%Y A046477 Cf. A002385, A029976.
%Y A046477 Sequence in context: A052025 A045336 A083183 this_sequence A145843 A090720 
               A114780
%Y A046477 Adjacent sequences: A046474 A046475 A046476 this_sequence A046478 A046479 
               A046480
%K A046477 nonn,hard,base
%O A046477 1,1
%A A046477 Patrick De Geest (pdg(AT)worldofnumbers.com), Aug 15 1998.