A100841 Primes of the form k^k + 7.

11, 263, 46663, 1461501637330902918203684832716283019655932542983

Offset: 1

Author

Cino Hilliard, Jan 07 2005

Keywords

• hard
• more
• nonn

Comments

No additional terms up to k = 1000. - Harvey P. Dale, Jul 03 2019

Crossrefs

Cf. A100838 (corresponding k).

Programs

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 *)

PARI

f1(n) = for(x=1,n,y=x^x+7;if(ispseudoprime(y),print1(y", ")))