|
%I #7 Apr 06 2018 18:14:03
%S 17,227,2999,16736887,8915621446643,302868879571439,
%T 12089258196146290931146476752102265654388730403884105727999999959,
%U 500702078263459319162123109657034815575847666330026847982736254730143917152403407
%N Primes of the form n^n-n!-n-1 (for n>=3).
%C The 9th term of the sequence is 121 digits long and the 10th term has 146 digits.
%e For n=3, p:=27-6-3-1=17 is prime.
%t Do[p=n^n-n!-n-1; If[PrimeQ[p], Print[p]], {n, 200}]
%t Select[Table[n^n-n!-n-1,{n,3,90}],PrimeQ] (* _Harvey P. Dale_, Apr 06 2018 *)
%K nonn
%O 1,1
%A _Marco Ripà_, Mar 12 2011
| 