|
| |
|
|
A100841
|
|
Primes of the form n^n+7.
|
|
1
| | |
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| lst={}; Do[p=n^n+7; If[PrimeQ[p], AppendTo[lst, p]], {n, 2*5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Nov 01 2009]
|
|
|
PROG
| (PARI) f1(n, a) = for(x=0, n, y=x^x+a; if(ispseudoprime(y), print1(y", ")))
|
|
|
CROSSREFS
| Sequence in context: A168466 A091159 A130177 * A003389 A027019 A168147
Adjacent sequences: A100838 A100839 A100840 * A100842 A100843 A100844
|
|
|
KEYWORD
| hard,more,nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Jan 07 2005
|
| |
|
|
