A162606 Primes of the form k^k-k!+6.
3011, 818509, 827239906198908668183, 3877924263464448622408024944643162574255380546190593937673127995497376385062869
Offset: 1
Keywords
Programs
-
Mathematica
f[n_]:=n^n-n!+6; lst={};Do[p=f[n];If[PrimeQ[p],AppendTo[lst,p]],{n,3*5!}]; lst Select[Table[n^n-n!+6,{n,50}],PrimeQ] (* Harvey P. Dale, Sep 22 2019 *)
Comments