%I #16 Sep 08 2022 08:46:04

%S 2,3,59051,161053,759377,14348909,90224201,345025253,601692059,

%T 12762815627,73439775751,183765996901,296709280759,503756397101,

%U 576650390627,657748550153,1572763671877,1751989905403,1880287678127,2389769101501,3101364196877,3201078401359

%N Primes of the form n^5+2.

%C Subsequence of A053788. [_Bruno Berselli_, Sep 21 2012]

%H Vincenzo Librandi, <a href="/A216977/b216977.txt">Table of n, a(n) for n = 1..1000</a>

%t lst={}; Do[p=n^5+2; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst

%t Select[Table[n^5 + 2, {n, 0, 400}], PrimeQ] (* _Vincenzo Librandi_, Mar 15 2013 *)

%o (PARI)

%o v=select(n->isprime(n^5+2),vector(2000,n,n-1)); /* A216976 */

%o vector(#v, n, v[n]^5+2)

%o /* _Joerg Arndt_, Sep 21 2012 */

%o (Magma) [a: n in [0..400] | IsPrime(a) where a is n^5+2]; // _Vincenzo Librandi_, Mar 15 2013

%Y Cf. A053788, A056899, A144953, A216976.

%K nonn,easy

%O 1,1

%A _Michel Lagneau_, Sep 21 2012