%I #13 Sep 08 2022 08:45:40
%S 3,13,31,63,93,139,181,211,229,265,271,303,325,339,343,345,411,441,
%T 519,523,531,549,555,573,619,663,675,681,693,741,751,805,819,835,853,
%U 861,945,951,969,975,993,1063,1071,1095,1119,1143,1275,1281,1305,1329
%N Numbers n such that n^5-2 is prime.
%C 3^5-2=241 prime, 13^5-2=371291 prime,...
%H Vincenzo Librandi, <a href="/A154833/b154833.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=n^5-2;If[PrimeQ[p],AppendTo[lst,n]],{n,0,7!}];lst
%t Select[Range[2 10^3], PrimeQ[#^5 - 2] &] (* _Vincenzo Librandi_, Mar 20 2014 *)
%o (Magma) [n: n in [1..500] | IsPrime(n^5-2)]; // _Vincenzo Librandi_, Nov 26 2010
%o (PARI) is(n)=isprime(n^5-2) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A028870, A038599, A154831, A154832.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 15 2009