|
|
A100841
|
|
Primes of the form n^n + 7.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
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
|
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|