login
A188764
Primes p such that all prime factors of p-2 have exponent 3.
0
29, 127, 24391, 274627, 328511, 357913, 571789, 1157627, 1442899, 1860869, 2146691, 2924209, 5177719, 9129331, 9938377, 10503461, 12326393, 15438251, 18191449, 24642173, 26730901, 28372627, 30080233, 39651823
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
Sequence in context: A142438 A342823 A118097 * A048636 A044361 A044742
KEYWORD
nonn
AUTHOR
STATUS
approved