%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