|
%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
|
