OFFSET
1,3
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
lst={}; Do[If[PrimeQ[n^7+2], AppendTo[lst, n]], {n, 0, 10^3}]; lst
Select[Range[0, 2000], PrimeQ[#^7+2]&] (* Harvey P. Dale, Mar 29 2016 *)
PROG
(PARI) select(n->isprime(n^7+2), vector(2000, n, n-1)) /* Joerg Arndt, Sep 21 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Sep 21 2012
STATUS
approved