A100841 Primes of the form n^n + 7.

11, 263, 46663, 1461501637330902918203684832716283019655932542983

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..4.

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, a) = for(x=0, n, y=x^x+a; if(ispseudoprime(y), print1(y", ")))

Crossrefs

Sequence in context: A091159 A130177 A356212 * A003389 A243210 A232695

Adjacent sequences: A100838 A100839 A100840 * A100842 A100843 A100844

Keyword

hard,more,nonn

Author

Cino Hilliard, Jan 07 2005

Status

approved