%I A117697
%S A117697 11,101,111,10001,11111,1001001,1101011,1111111,100000001,100111001,
%T A117697 110111011,10010101001,10110101101,11000100011,11001010011,11011111011,
%U A117697 11100100111,11101010111,1001100011001,1001111111001,1010001000101
%N A117697 Palindromic primes in base 2 (written in base 2).
%H A117697 Attila Olah, <a href="b117697.txt">Table of n, a(n) for n=1..43964</a>
%H A117697 Eric Weisstein: <a href="http://mathworld.wolfram.com/PalindromicPrime.html">
               Palindromic Prime</a>.
%F A117697 a(n)=A007088[A016041(n)]. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Feb 25 2007
%p A117697 A007088 := proc(n) local bin,dig ; bin := convert(n,base,2) ; add( op(dig,
               bin)*10^(dig-1), dig=1..nops(bin) ) ; end: isA016041 := proc(n) local 
               bin,dig ; if isprime(n) then bin := convert(n,base,2) ; for dig from 
               1 to nops(bin)/2 do if op(dig,bin) <> op(-dig,bin) then RETURN(false) 
               ; fi ; od ; RETURN(true) ; else false ; fi ; end: for i from 1 to 
               900 do p := ithprime(i) : if isA016041(p) then printf("%d, ",A007088(p)) 
               ; fi ; od : - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 25 
               2007
%Y A117697 Cf. A016041, A002385.
%Y A117697 Sequence in context: A099821 A057148 A076289 this_sequence A091366 A158051 
               A073064
%Y A117697 Adjacent sequences: A117694 A117695 A117696 this_sequence A117698 A117699 
               A117700
%K A117697 nonn,base
%O A117697 1,1
%A A117697 Martin Renner (martin.renner(AT)gmx.net), Apr 13 2006
%E A117697 Keyword:base added by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jul 
               12 2009