OFFSET
1,1
COMMENTS
Subsequence of A053788. [Bruno Berselli, Sep 21 2012]
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p=n^5+2; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Select[Table[n^5 + 2, {n, 0, 400}], PrimeQ] (* Vincenzo Librandi, Mar 15 2013 *)
PROG
(PARI)
v=select(n->isprime(n^5+2), vector(2000, n, n-1)); /* A216976 */
vector(#v, n, v[n]^5+2)
/* Joerg Arndt, Sep 21 2012 */
(Magma) [a: n in [0..400] | IsPrime(a) where a is n^5+2]; // Vincenzo Librandi, Mar 15 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michel Lagneau, Sep 21 2012
STATUS
approved