login
A100841
Primes of the form k^k + 7.
2
11, 263, 46663, 1461501637330902918203684832716283019655932542983
OFFSET
1,1
COMMENTS
No additional terms up to k = 1000. - Harvey P. Dale, Jul 03 2019
MATHEMATICA
lst={}; Do[p=n^n+7; If[PrimeQ[p], AppendTo[lst, p]], {n, 2*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Nov 01 2009 *)
Select[Table[n^n+7, {n, 100}], PrimeQ] (* Harvey P. Dale, Jul 03 2019 *)
PROG
(PARI) f1(n) = for(x=1, n, y=x^x+7; if(ispseudoprime(y), print1(y", ")))
CROSSREFS
Cf. A100838 (corresponding k).
Sequence in context: A091159 A130177 A356212 * A003389 A243210 A232695
KEYWORD
hard,more,nonn
AUTHOR
Cino Hilliard, Jan 07 2005
STATUS
approved