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