OFFSET
1,1
MATHEMATICA
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
With[{pp=Table[n^n, {n, 2, 16, 2}]}, Select[Prime[Range[125270000]], AllTrue[ #+pp, PrimeQ]&]] (* Harvey P. Dale, Aug 10 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 04 2008
EXTENSIONS
Offset corrected, terms from a(7) on from Charles R Greathouse IV, Feb 03 2011
STATUS
approved