OFFSET
1,1
COMMENTS
The 9th term of the sequence is 121 digits long and the 10th term has 146 digits.
EXAMPLE
For n=3, p:=27-6-3-1=17 is prime.
MATHEMATICA
Do[p=n^n-n!-n-1; If[PrimeQ[p], Print[p]], {n, 200}]
Select[Table[n^n-n!-n-1, {n, 3, 90}], PrimeQ] (* Harvey P. Dale, Apr 06 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Marco Ripà, Mar 12 2011
STATUS
approved