A084914 Numbers k such that k^k*k! - 1 is prime.
2, 4, 30, 94, 113, 162, 296, 3243
Offset: 1
Examples
4 is in the sequence because 4!*4^4 - 1 = 6143 is prime.
Programs
-
Mathematica
Do[If[PrimeQ[n^n*n!-1], Print[n]], {n, 700}]
Extensions
a(8) = 3243 from Robert Price, May 19 2012
Comments