A216974 Numbers k such that k^4+2 is prime.

0, 1, 3, 9, 15, 21, 45, 57, 63, 69, 87, 99, 129, 141, 279, 285, 333, 345, 453, 459, 465, 471, 513, 519, 627, 657, 669, 693, 729, 771, 777, 783, 795, 801, 807, 873, 909, 921, 933, 969, 987, 1011, 1023, 1047, 1119, 1155, 1257, 1299, 1323, 1407, 1419, 1437, 1485

Offset

1,3

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

lst={}; Do[If[PrimeQ[n^4+2], AppendTo[lst, n]], {n, 0, 10^3}]; lst
Select[Range[0, 1500], PrimeQ[#^4 + 2] &] (* Bruno Berselli, Sep 21 2012 *)

Prog

(PARI) select(n->isprime(n^4+2), vector(2000, n, n-1)) /* Joerg Arndt, Sep 21 2012 */
(Magma) [n: n in [0..1500] | IsPrime(n^4+2)]; // Bruno Berselli, Sep 21 2012

Crossrefs

Cf. A067200, A067201, A182343 (associated primes).

Sequence in context: A064539 A029482 A174786 * A246298 A139419 A323031

Adjacent sequences: A216971 A216972 A216973 * A216975 A216976 A216977

Keyword

nonn,easy

Author

Michel Lagneau, Sep 21 2012

Status

approved