|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|