A216980 - OEIS

%I #12 Mar 29 2016 11:50:26

%S 0,1,9,21,53,63,99,123,141,155,185,213,315,363,375,449,513,521,543,

%T 555,653,669,699,731,735,759,801,843,881,975,983,995,1031,1095,1115,

%U 1131,1149,1161,1221,1253,1395,1413,1451,1473,1491,1571,1599,1625,1659,1733

%N Numbers n such that n^7+2 is prime.

%H Charles R Greathouse IV, <a href="/A216980/b216980.txt">Table of n, a(n) for n = 1..10000</a>

%t lst={}; Do[If[PrimeQ[n^7+2], AppendTo[lst, n]], {n, 0, 10^3}]; lst

%t Select[Range[0,2000],PrimeQ[#^7+2]&] (* _Harvey P. Dale_, Mar 29 2016 *)

%o (PARI) select(n->isprime(n^7+2),vector(2000,n,n-1)) /* _Joerg Arndt_, Sep 21 2012 */

%Y Cf. A067200, A067201, A216974, A216976, A216978.

%K nonn

%O 1,3

%A _Michel Lagneau_, Sep 21 2012