|
| |
|
|
A166002
|
|
Primes p such that p-6, p-5, p+5, and p+6 are each divisible by a cube greater than 1.
|
|
1
| |
|
|
1934869, 6136619, 11195869, 11845499, 12385381, 33919619, 39139381, 39790381, 52937869, 53209381, 53631131, 54601619, 58690381, 62892131, 67951381, 77212381, 80224619, 88874869, 94544869, 95734381, 99936131, 103805869, 108827869
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| f[n_]:=Max[Last/@FactorInteger[n]]; q=3; lst={}; Do[p=Prime[n]; If[f[p-6]>=q&&f[p-5]>=q&&f[p+5]>=q&&f[p+6]>=q, AppendTo[lst, p]], {n, 5*9!}]; lst
|
|
|
CROSSREFS
| Cf. A086708, A086709, A089199, A089200, A089212, A166000, A166001
Sequence in context: A133542 A186802 A179226 * A069339 A109147 A186578
Adjacent sequences: A165999 A166000 A166001 * A166003 A166004 A166005
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Oct 03 2009
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane, Oct 04 2009
Extended and edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), May 12 2010
|
| |
|
|
