Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #16 May 26 2019 04:39:34
%S 13,17,43,47,67,83,97,103,107,113,127,137,157,163,167,173,193,197,433,
%T 443,457,463,467,487,607,613,617,643,647,653,673,677,683,823,827,853,
%U 857,863,877,883,887,907,937,947,953,967,977,983,997,1013,1019,1031
%N Republican primes: primes such that the right half of the prime is prime and the left half is not.
%C If the length of n is odd then the central number is not used in the calculation. So neither the left half nor the right half will contain the central digit. If the length of n is even, then all numbers are used.
%H Tony Padilla and Brady Haran, <a href="https://www.youtube.com/watch?v=zk_Q9y_LNzg">The Most Evil Number</a>, Numberphile video (2018)
%e The right half of 13 is 3, which is prime. The left half is 1, which is not prime.
%e The right half of 113 is 3, which is prime. The left half is 1, which is not prime.
%o (PARI) /* Political primes, republican case. */ rep(n) = { local(x,ln,y,lp,rp); forprime(x=2,n, y=Str(x); if(x > 9, ln=floor(length(y)/2), ln=1); lp = eval(left(y,ln)); rp = eval(right(y,ln)); if(!isprime(lp)&& isprime(rp),print1(x",") ) ) }
%Y Cf. A125523, A125525.
%K base,easy,nonn
%O 2,1
%A _Cino Hilliard_, Jan 22 2007