OFFSET
1,1
EXAMPLE
30080233-2=311^3, 39651823-2=11^3*31^3,..
MATHEMATICA
Select[Table[Prime[n], {n, 3000000}], Length[Union[Last/@FactorInteger[#-2]]]==1&&Union[Last/@FactorInteger[#-2]]=={3}&]
Select[Prime[Range[25*10^5]], Union[FactorInteger[#-2][[All, 2]]]=={3}&] (* Harvey P. Dale, Nov 22 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 09 2011
STATUS
approved