A216977 Primes of the form n^5+2.
2, 3, 59051, 161053, 759377, 14348909, 90224201, 345025253, 601692059, 12762815627, 73439775751, 183765996901, 296709280759, 503756397101, 576650390627, 657748550153, 1572763671877, 1751989905403, 1880287678127, 2389769101501, 3101364196877, 3201078401359
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[a: n in [0..400] | IsPrime(a) where a is n^5+2]; // Vincenzo Librandi, Mar 15 2013
-
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 *)
-
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 */
Comments