Search: id:A016041 Results 1-1 of 1 results found. %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, Table of n, a (n) for n = 1..1000 %H A016041 K. S. Brown, On General Palindromic Numbers %H A016041 P. De Geest, World!Of Palindromic Primes %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 Search completed in 0.001 seconds