OFFSET
1,1
MATHEMATICA
Select[Table[(n-1)!+n^(n-1), {n, 20}], PrimeQ] (* Harvey P. Dale, Oct 05 2016 *)
PROG
(PARI) j=[]; for(n=1, 100, if(isprime((n^n+n!)/n), j=concat(j, ((n-1)! + n^(n-1))))); j
CROSSREFS
KEYWORD
nonn,less,more
AUTHOR
Alexander R. Povolotsky, Aug 17 2008
STATUS
approved