OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_]:=Max[Last/@FactorInteger[n]]; q=2; lst={}; Do[p=Prime[n]; If[f[p-3]>=q&&f[p-2]>=q&&f[p-1]>=q&&f[p+1]>=q&&f[p+2]>=q&&f[p+3]>=q, AppendTo[lst, p]], {n, 6*8!}]; lst
Select[Prime[Range[100000]], NoneTrue[#+{-3, -2, -1, 1, 2, 3}, SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 17 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 03 2009
EXTENSIONS
Edited by N. J. A. Sloane, Oct 04 2009
STATUS
approved