A100837 Numbers n such that n^n + 4 is prime.

0, 1, 3, 7, 43, 2569

Offset

1,3

Comments

From a post in [primeNumbers].

Here we interpret 0^0 as 1.

Links

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

Mathematica

For[n = 1, n < 1000, n++, If[ PrimeQ[n^n + 4], Print[n]]] (* Stefan Steinerberger, Apr 02 2006 *)

Prog

(PARI) f1(n, a) = for(x=0, n, y=x^x+a; if(ispseudoprime(y), print1(y", ")))

Crossrefs

Cf. A100840 (corresponding primes).

Sequence in context: A156893 A050639 A280717 * A253576 A354428 A328690

Adjacent sequences: A100834 A100835 A100836 * A100838 A100839 A100840

Keyword

hard,more,nonn

Author

Cino Hilliard, Jan 07 2005

Extensions

1 more term. Next term exceeds 15000. - Sean A. Irvine, Sep 09 2009

Status

approved