%I #12 Dec 24 2022 11:39:04

%S 0,1,9,11,15,27,39,51,57,105,149,179,197,219,225,231,275,281,285,299,

%T 315,317,321,335,369,389,401,405,411,419,425,491,509,545,561,587,725,

%U 741,779,789,819,855,879,909,915,977,1007,1019,1059,1115,1145,1161,1199

%N Numbers k such that k^5+2 is prime.

%H Robert Israel, <a href="/A216976/b216976.txt">Table of n, a(n) for n = 1..10000</a>

%p select(t->isprime(t^5+2), [$0..10000]); # _Robert Israel_, Jan 01 2021

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

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

%Y Cf. A067200, A067201.

%K nonn

%O 1,3

%A _Michel Lagneau_, Sep 21 2012