OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..271
MATHEMATICA
f[n_]:=Max[Last/@FactorInteger[n]]; q=3; lst={}; Do[p=Prime[n]; If[f[p-5]>=q&&f[p-4]>=q&&f[p+4]>=q&&f[p+5]>=q, AppendTo[lst, p]], {n, 4*8!}]; lst
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 03 2009
EXTENSIONS
Extended by Charles R Greathouse IV, Oct 09 2009
STATUS
approved