OFFSET
1,1
COMMENTS
The next term (a(5)) has 1900 digits. - Harvey P. Dale, Jan 29 2025
MATHEMATICA
Select[Table[n^n+Prime[n], {n, 20}], PrimeQ] (* Harvey P. Dale, Jan 29 2025 *)
PROG
(PARI) for(n=1, 100, if(isprime(n^n+prime(n)), print(n^n+prime(n))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Oct 19 2001
STATUS
approved
