|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|