OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
4093 is in the sequence because 4093 and 4099 are consecutive primes and (4093 + 4099)/2 = 4096 = 2^12.
MATHEMATICA
Select[Partition[Prime[Range[2, 10^4]], 2, 1], GCD @@ FactorInteger[(First[#] + Last[#])/2][[;; , 2]] > 1 &][[;; , 1]] (* Amiram Eldar, Jul 04 2022 *)
PROG
(PARI) for(i=3, 10^5, if(isprime(i), k=(i+nextprime(i+1))/2; if(ispower(k), print1(i, ", "))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antonio Roldán, May 12 2014
STATUS
approved