A166002 Primes p such that p-6, p-5, p+5, and p+6 are each divisible by a cube greater than 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

Author

Vladimir Joseph Stephan Orlovsky, Oct 03 2009

Keywords

• nonn

Crossrefs

Cf. A086708, A086709, A089199, A089200, A089212, A166000, A166001

Programs

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

Extensions

Edited by N. J. A. Sloane, Oct 04 2009

Extended and edited by Charles R Greathouse IV, May 12 2010