%I A016041
%S A016041 3,5,7,17,31,73,107,127,257,313,443,1193,1453,1571,1619,1787,1831,1879,
%T A016041 4889,5113,5189,5557,5869,5981,6211,6827,7607,7759,7919,8191,17377,
%U A016041 18097,18289,19433,19609,19801,21157,22541,22669,22861,23581,24029
%N A016041 Primes that are palindromic in base 2 (but written here in base 10).
%H A016041 Zak Seidov, <a href="b016041.txt">Table of n, a (n) for n = 1..1000</
               a>
%H A016041 K. S. Brown, <a href="http://www.mathpages.com/home/kmath359.htm">On 
               General Palindromic Numbers</a>
%H A016041 P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of 
               Palindromic Primes</a>
%t A016041 lst = {}; Do[ If[ PrimeQ@n, t = IntegerDigits[n, 2]; If[ FromDigits@t 
               == FromDigits@ Reverse@ t, AppendTo[lst, n]]], {n, 3, 50000, 2}]; 
               lst
%Y A016041 Intersection of A000040 & A006995. First row of A095749. A095741 gives 
               the number of terms in range [2^(2n), 2^(2n+1)]. Cf. A095730 for 
               primes whose Zeckendorf-expansion is palindromic and A029971 for 
               those whose ternary (base-3) expansion is.
%Y A016041 Sequence in context: A032496 A002092 A057476 this_sequence A140797 A038893 
               A075227
%Y A016041 Adjacent sequences: A016038 A016039 A016040 this_sequence A016042 A016043 
               A016044
%K A016041 nonn,easy
%O A016041 1,1
%A A016041 Robert G. Wilson v (rgwv(AT)rgwv.com)
%E A016041 More terms from Patrick De Geest (pdg(AT)worldofnumbers.com).
%E A016041 More terms from Antti Karttunen (Antti.Karttunen(AT)iki.fi), Jun 12 2004
%E A016041 I corrected the syntax of the Mathematica coding Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Aug 10 2009