A162605 Primes of the form k^k-k!+2.
2, 23, 387057611, 7596040312163297274222442578036920783684137730466972969164241364503367485389656454146145546668114950475963285686810192201741431
Offset: 1
Keywords
Programs
-
Mathematica
f[n_]:=n^n-n!+2; lst={};Do[p=f[n];If[PrimeQ[p],AppendTo[lst,p]],{n,4*5!}]; lst Select[Table[k^k-k!+2,{k,100}],PrimeQ] (* Harvey P. Dale, Apr 26 2022 *)
Comments