OFFSET
1,1
MATHEMATICA
f[n_]:=Max[Last/@FactorInteger[n]]; lst={}; Do[p=Prime[n]; If[f[p-2]>1&&f[p-1]>1&&f[p+1]>1&&f[p+2]>1&&f[p-3]>1&&f[p+3]>1&&f[p-4]>1&&f[p+4]>1, AppendTo[lst, p]], {n, 6*10!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 09 2010
EXTENSIONS
More terms from Zak Seidov, Apr 10 2010
STATUS
approved