OFFSET
1,1
COMMENTS
The next term is too large to include.
2^2-2!+1=4-2+1=3, 4^4-4!+1=256-24+1=233,..
The next term, a(5), has 527 digits and derives from n=224. - Harvey P. Dale, Jun 03 2014
MATHEMATICA
f[n_]:=n^n-n!+1; lst={}; Do[p=f[n]; If[PrimeQ[p], AppendTo[lst, p]], {n, 2*5!}]; lst
Select[Table[n^n-n!+1, {n, 30}], PrimeQ] (* Harvey P. Dale, Jun 03 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 07 2009
STATUS
approved