|
%I #9 Nov 22 2018 12:45:12
%S 29,127,24391,274627,328511,357913,571789,1157627,1442899,1860869,
%T 2146691,2924209,5177719,9129331,9938377,10503461,12326393,15438251,
%U 18191449,24642173,26730901,28372627,30080233,39651823
%N Primes p such that all prime factors of p-2 have exponent 3.
%e 30080233-2=311^3, 39651823-2=11^3*31^3,..
%t Select[Table[Prime[n],{n,3000000}],Length[Union[Last/@FactorInteger[#-2]]]==1&&Union[Last/@FactorInteger[#-2]]=={3}&]
%t Select[Prime[Range[25*10^5]],Union[FactorInteger[#-2][[All,2]]]=={3}&] (* _Harvey P. Dale_, Nov 22 2018 *)
%Y Cf. A089195, A188717.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 09 2011
|
