login
A242387
Lesser of consecutive primes whose average is a palindromic number.
2
3, 5, 7, 97, 109, 281, 359, 389, 409, 509, 631, 653, 691, 743, 827, 857, 907, 937, 967, 1549, 2111, 2767, 4219, 4441, 7001, 9007, 9337, 9661, 10099, 11503, 12919, 13421, 16759, 17569, 21011, 21611, 23831, 26261, 26861, 28181, 29287, 29483, 30497, 31307, 32213, 33029, 33629
OFFSET
1,1
LINKS
EXAMPLE
389 is in the sequence because 389 is prime, nextprime(389)=397, and (389+397)/2=393, a palindromic number.
MATHEMATICA
Select[Partition[Prime[Range[4000]], 2, 1], PalindromeQ[Mean[#]]&][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 05 2019 *)
PROG
(PARI)
palind(n)=Str(n)==concat(Vecrev(Str(n)))
{p=2; while(p<10^5, q=nextprime(p+1); if(palind((p+q)/2), print1(p, ", ")); p=q)}
CROSSREFS
Cf. A242386.
Sequence in context: A160360 A082697 A051345 * A104388 A110337 A132287
KEYWORD
nonn,base,less
AUTHOR
Antonio Roldán, May 12 2014
STATUS
approved