%I #6 Apr 26 2022 13:42:04
%S 2,23,387057611,
%T 7596040312163297274222442578036920783684137730466972969164241364503367485389656454146145546668114950475963285686810192201741431
%N Primes of the form k^k-k!+2.
%C The values of A036679(k)+2 at indices k=1, 3, 9, 69, ... - _R. J. Mathar_, Jul 16 2009
%C No further terms up to k=1000. - _Harvey P. Dale_, Apr 26 2022
%t f[n_]:=n^n-n!+2; lst={};Do[p=f[n];If[PrimeQ[p],AppendTo[lst,p]],{n,4*5!}]; lst
%t Select[Table[k^k-k!+2,{k,100}],PrimeQ] (* _Harvey P. Dale_, Apr 26 2022 *)
%Y Cf. A162603, A162604
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 07 2009