%I #15 Feb 03 2024 00:53:01
%S 3,13,31,139,181,211,229,271,523,619,751,853,1063,1483,1699,2791,3361,
%T 3463,3541,3769,4051,4201,4801,4861,4903,5521,5689,5701,6163,6211,
%U 6763,6823,6949,7621,8059,8269,8389,8419,8563,8689,8713,9001,9103,9319,10303
%N Primes p such that p^5 - 2 is also prime.
%C Primes in A154833.
%H Harvey P. Dale, <a href="/A154834/b154834.txt">Table of n, a(n) for n = 1..1000</a>
%e 3^5 - 2 = 241 is prime,
%e 13^5 - 2 = 371291 is prime, ...
%t lst={};Do[p=n^5-2;If[PrimeQ[p],If[PrimeQ[n],AppendTo[lst,n]]],{n,0,7!}];lst
%t Select[Prime[Range[1300]],PrimeQ[#^5-2]&] (* _Harvey P. Dale_, Feb 09 2019 *)
%Y Cf. A028870, A038599, A154831, A154832, A154833.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 15 2009
|