The OEIS is supported by the many generous donors to the OEIS Foundation.

A164520
Primes p such that p-2 is the product of exactly 2 distinct cubes of primes.
2
274627, 328511, 1860869, 2146691, 2924209, 9129331, 9938377, 10503461, 15438251, 24642173, 26730901, 28372627, 39651823, 61629877, 105823819, 125751503, 136590877, 151419439, 194104541, 426957779, 573856193
OFFSET
1,1
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
Sequence in context: A235300 A256364 A250509 * A274351 A114664 A069372
KEYWORD
nonn
AUTHOR
EXTENSIONS
Program by Charles R Greathouse IV, Oct 12 2009
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 19 21:59 EDT 2024. Contains 376015 sequences. (Running on oeis4.)