|
|
A216981
|
|
Primes of the form n^7+2.
|
|
1
|
|
|
2, 3, 4782971, 1801088543, 1174711139839, 3938980639169, 93206534790701, 425927596977749, 1107984764452583, 2149422977421877, 7416552901015627, 19891027786401119, 307732862434921877, 830512886046548069, 1042842864990234377, 3678954248903875651
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
lst={}; Do[p=n^7+2; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
|
|
PROG
|
(PARI)
v=select(n->isprime(n^7+2), vector(2000, n, n-1)); /* A216980 */
vector(#v, n, v[n]^7+2)
(Magma) [a: n in [0..500] | IsPrime(a) where a is n^7+2]; // Vincenzo Librandi, Mar 15 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|