OFFSET
1,1
MATHEMATICA
f[n_]:=n^n-2; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 5!}]; lst
Join[{2}, Select[Table[n^n-2, {n, 1, 51, 2}], PrimeQ]] (* Harvey P. Dale, Feb 12 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 17 2009
EXTENSIONS
Cross-reference from Charles R Greathouse IV, Oct 08 2009
STATUS
approved