%I #9 Mar 01 2022 12:11:04

%S 597433,1218277,78432313,163484407,229205803,301551427,384490507,

%T 629522587,692824057,893222647,906769117,1002618037,1113319447,

%U 1177252693,1218963517,1271129953,1296796477,1600630333,1735141783,1923577987,2044791673,2212880077,2582822587

%N Primes p with p+2^2, p+4^4, p+6^6, ..., p+16^16 prime.

%t lst={}; Do[p=Prime[n]; If[PrimeQ[p+2^2]&& PrimeQ[p+4^4]&& PrimeQ[p+6^6]&& PrimeQ[p+8^8]&& PrimeQ[p+10^10]&& PrimeQ[p+12^12]&& PrimeQ[p+14^14]&& PrimeQ[p+16^16], AppendTo[lst, n]], {n, 2*10^7}]; lst

%t With[{pp=Table[n^n,{n,2,16,2}]},Select[Prime[Range[125270000]],AllTrue[ #+pp,PrimeQ]&]] (* _Harvey P. Dale_, Aug 10 2021 *)

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Sep 04 2008

%E Offset corrected, terms from a(7) on from _Charles R Greathouse IV_, Feb 03 2011