A164520 Primes p such that p-2 is the product of exactly 2 distinct cubes of primes.

274627, 328511, 1860869, 2146691, 2924209, 9129331, 9938377, 10503461, 15438251, 24642173, 26730901, 28372627, 39651823, 61629877, 105823819, 125751503, 136590877, 151419439, 194104541, 426957779, 573856193

Offset

1,1

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10124

Example

274627 - 2 = 5^3*13^3, 328511 - 2 = 3^3*23^3,..

Mathematica

f3[n_]:=FactorInteger[n][[1, 2]]==3&&Length[FactorInteger[n]]==2&&FactorInteger[n][[2, 2]]==3; lst={}; Do[p=Prime[n]; If[f3[p-2], AppendTo[lst, p]], {n, 4, 4*9!}]; lst

Prog

(PARI) forprime(p=3, 1e9, if(ispower(p-2, 3, &n)&&!issquare(n)&&bigomega(n)==2, print1(p", ")))

Crossrefs

Cf. A056899, A144953, A164517, A164518, A164519

Sequence in context: A235300 A256364 A250509 * A274351 A114664 A069372

Adjacent sequences: A164517 A164518 A164519 * A164521 A164522 A164523

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 14 2009

Extensions

Program by Charles R Greathouse IV, Oct 12 2009

Status

approved