OFFSET
1,2
COMMENTS
672^672 + prime(672) (1900 digits) certified prime with Primo.
Next term, if it exists, is bigger than 2000. - Stefan Steinerberger, Feb 03 2006
Next term, if it exists, is bigger than 20000. - Michael S. Branicky, Aug 10 2024
MATHEMATICA
For[n=1, n <= 2000, n++, If[PrimeQ[n^n+Prime[n]], Print[n]]] (* Stefan Steinerberger, Feb 03 2006 *)
Select[Range[680], PrimeQ[#^#+Prime[#]]&] (* Harvey P. Dale, Oct 09 2018 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jason Earls, Oct 19 2001
EXTENSIONS
More terms from Stefan Steinerberger, Feb 03 2006
STATUS
approved