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,1

Links

Table of n, a(n) for n=1..23.

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: A323343 A186802 A179226 * A285390 A069339 A350539

Adjacent sequences: A165999 A166000 A166001 * A166003 A166004 A166005

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Oct 03 2009

Extensions

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

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

Status

approved