A328217 Numbers k such that k^(k+1)*(k+1)^k + 1 is prime.
1, 2, 14, 22, 120
Offset: 1
Programs
-
Magma
[n: n in [1..500] | IsPrime(n^(n+1)*(n+1)^n+1)];
-
Mathematica
Select[Range[120], PrimeQ[#^(# + 1)*(# + 1)^# + 1] &] (* Amiram Eldar, Oct 08 2019 *)
Comments