%I #17 Sep 08 2022 08:45:40
%S 3,7,11,13,21,29,39,41,43,49,53,59,73,83,85,87,95,99,101,119,129,141,
%T 143,175,181,185,189,207,217,239,241,277,279,293,311,315,323,339,343,
%U 363,367,371,375,381,389,409,421,433,435,451,473,483,497,503,507,515
%N Numbers n such that n^4-2 is prime.
%H Vincenzo Librandi, <a href="/A154831/b154831.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=n^4-2;If[PrimeQ[p],AppendTo[lst,n]],{n,0,7!}];lst
%t Select[Range[600],PrimeQ[#^4-2]&] (* _Harvey P. Dale_, May 20 2012 *)
%o (Magma) [n: n in [1..500] | IsPrime(n^4-2)]; // _Vincenzo Librandi_, Nov 26 2010
%o (PARI) is(n)=isprime(n^4-2) \\ _Charles R Greathouse IV_, Jul 02 2013
%Y Cf. A028870, A038599.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 15 2009
|