A100837 Numbers k such that k^k + 4 is prime.
0, 1, 3, 7, 43, 2569
Offset: 1
Programs
-
Mathematica
For[n = 1, n < 1000, n++, If[ PrimeQ[n^n + 4], Print[n]]] (* Stefan Steinerberger, Apr 02 2006 *)
-
PARI
f1(n,a) = for(x=0,n,y=x^x+a;if(ispseudoprime(y),print1(y",")))
Extensions
a(6) from Sean A. Irvine, Sep 09 2009
Comments