|
Search: id:A166002
|
|
|
| A166002 |
|
Primes p such that p+-5 and p+-6 are not cubefree. |
|
+0
2
|
| |
|
|
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: A032596 A032597 A133542 this_sequence A069339 A109147 A016821
Adjacent sequences: A165999 A166000 A166001 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
