login
Primes p such that all prime factors of p-2 have exponent 3.
0

%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