%I #16 Jun 05 2022 00:43:23
%S 1,3,7,13,23,55,90,337,2313,8767
%N Numbers k such that k^k*k! + 1 is prime.
%C All terms under 500 correspond to certified primes (Primo 2.2.0 beta). a(10) > 2500. - _Ryan Propper_, Apr 05 2006
%C a(11) > 10000. - _Eric Snyder_, Jun 03 2022
%e 7 is in the sequence because 7^7*7! + 1 = 4150656721 is prime.
%t Do[If[PrimeQ[n^n*n!+1], Print[n]], {n, 600}]
%Y Cf. A002981, A002982.
%K more,nonn
%O 1,2
%A _Farideh Firoozbakht_, Jul 14 2003
%E a(9) from _Ryan Propper_, Apr 05 2006
%E a(10) from _Eric Snyder_, Jun 03 2022
|