OFFSET
1,1
COMMENTS
See A072164 for a condensed representation of the same information.
EXAMPLE
3^3-2^2=27-4=23 is prime and enters the list.
MATHEMATICA
f[n_]:=n^n-(n-1)^(n-1); lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 2, 5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 07 2009
EXTENSIONS
STATUS
approved