|
%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
|
