A216981 Primes of the form n^7+2.

2, 3, 4782971, 1801088543, 1174711139839, 3938980639169, 93206534790701, 425927596977749, 1107984764452583, 2149422977421877, 7416552901015627, 19891027786401119, 307732862434921877, 830512886046548069, 1042842864990234377, 3678954248903875651

Offset: 1

Author

Michel Lagneau, Sep 21 2012

Keywords

• nonn
• easy

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A056899, A144953, A216975, A216977, A216979.

Programs

Magma

[a: n in [0..500] | IsPrime(a) where a is n^7+2]; // Vincenzo Librandi, Mar 15 2013

Mathematica

lst={}; Do[p=n^7+2; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Select[Table[n^7 + 2, {n, 0, 400}], PrimeQ] (* Vincenzo Librandi, Mar 15 2013 *)

PARI

v=select(n->isprime(n^7+2),vector(2000,n,n-1)); /* A216980 */
vector(#v, n, v[n]^7+2)
/* Joerg Arndt, Sep 21 2012 */

PARI

select(isprime, vector(2000,n,(n-1)^7+2)) \\ Charles R Greathouse IV, Sep 21 2012