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

%I #18 Dec 24 2022 11:38:59

%S 0,1,3,9,15,21,45,57,63,69,87,99,129,141,279,285,333,345,453,459,465,

%T 471,513,519,627,657,669,693,729,771,777,783,795,801,807,873,909,921,

%U 933,969,987,1011,1023,1047,1119,1155,1257,1299,1323,1407,1419,1437,1485

%N Numbers k such that k^4+2 is prime.

%H Charles R Greathouse IV, <a href="/A216974/b216974.txt">Table of n, a(n) for n = 1..10000</a>

%t lst={}; Do[If[PrimeQ[n^4+2], AppendTo[lst, n]], {n, 0, 10^3}]; lst

%t Select[Range[0, 1500], PrimeQ[#^4 + 2] &] (* _Bruno Berselli_, Sep 21 2012 *)

%o (PARI) select(n->isprime(n^4+2),vector(2000,n,n-1)) /* _Joerg Arndt_, Sep 21 2012 */

%o (Magma) [n: n in [0..1500] | IsPrime(n^4+2)]; // _Bruno Berselli_, Sep 21 2012

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

%K nonn,easy

%O 1,3

%A _Michel Lagneau_, Sep 21 2012