%I #8 Sep 23 2012 10:31:07
%S 0,1,39,51,81,195,213,219,231,333,351,393,417,501,531,567,657,729,747,
%T 807,945,1005,1059,1161,1173,1185,1191,1203,1281,1335,1371,1467,1479,
%U 1563,1587,1647,1653,1749,1761,1821,1845,1875,1929,2373,2379,2421,2529,2595
%N Numbers n such that n^6+2 is prime.
%C Except for the first term, all terms must be odd numbers. - _Harvey P. Dale_, Sep 23 2012
%H Harvey P. Dale, <a href="/A216978/b216978.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={}; Do[If[PrimeQ[n^6+2], AppendTo[lst, n]], {n, 0, 3000}]; lst
%t Join[{0},Select[Range[1,3001,2],PrimeQ[#^6+2]&]] (* _Harvey P. Dale_, Sep 23 2012 *)
%o (PARI) select(n->isprime(n^6+2),vector(2000,n,n-1)) /* _Joerg Arndt_, Sep 21 2012 */
%Y Cf. A067200, A067201, A216974, A216976.
%K nonn
%O 1,3
%A _Michel Lagneau_, Sep 21 2012