login
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
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Oct 04 2009
Extended and edited by Charles R Greathouse IV, May 12 2010
STATUS
approved