A216976 Numbers k such that k^5+2 is prime.

0, 1, 9, 11, 15, 27, 39, 51, 57, 105, 149, 179, 197, 219, 225, 231, 275, 281, 285, 299, 315, 317, 321, 335, 369, 389, 401, 405, 411, 419, 425, 491, 509, 545, 561, 587, 725, 741, 779, 789, 819, 855, 879, 909, 915, 977, 1007, 1019, 1059, 1115, 1145, 1161, 1199

Offset: 1

Author

Michel Lagneau, Sep 21 2012

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A067200, A067201.

Programs

Maple

select(t->isprime(t^5+2), [$0..10000]); # Robert Israel, Jan 01 2021

Mathematica

lst={}; Do[If[PrimeQ[n^5+2], AppendTo[lst, n]], {n, 0, 10^3}]; lst
Select[Range[0,1200],PrimeQ[#^5+2]&] (* Harvey P. Dale, Jan 30 2025 *)

PARI

select(n->isprime(n^5+2),vector(2000,n,n-1)) /* Joerg Arndt, Sep 21 2012 */