%I #12 Dec 15 2017 17:36:35
%S 2,3,5,21,75
%N Numbers n such that n^n-(n-1)^2 is prime.
%C Next term, if it exists, is greater than 9000. - _Ryan Propper_, May 17 2006
%t Select[Range[80],PrimeQ[#^#-(#-1)^2]&] (* _Harvey P. Dale_, Aug 15 2013 *)
%o (PARI) is(n)=ispseudoprime(n^n-(n-1)^2) \\ _Charles R Greathouse IV_, Jun 13 2017
%K more,nonn
%O 1,1
%A _Jason Earls_, May 23 2004
|