login
A143910
Primes p with p+2^2, p+4^4, p+6^6, ..., p+16^16 prime.
0
597433, 1218277, 78432313, 163484407, 229205803, 301551427, 384490507, 629522587, 692824057, 893222647, 906769117, 1002618037, 1113319447, 1177252693, 1218963517, 1271129953, 1296796477, 1600630333, 1735141783, 1923577987, 2044791673, 2212880077, 2582822587
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
Sequence in context: A187643 A283956 A151435 * A206598 A022257 A237536
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected, terms from a(7) on from Charles R Greathouse IV, Feb 03 2011
STATUS
approved