The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #9 Jul 01 2023 08:28:24
%S 47,1447,1847,3701,6653,11273,14947,15727,17053,18493,21661,24923,
%T 26647,29153,32789,33023,38873,39323,42437,42923,44053,47527,47977,
%U 49853,52027,52153,56747,56873,59929,71147,74189,79427,80953,99277,99713
%N Primes p such that p+-2 and p+-3 are not squarefree.
%t lst={};Do[p=Prime[n];If[ !SquareFreeQ[p-2]&&!SquareFreeQ[p+2]&&!SquareFreeQ[p-3]&&!SquareFreeQ[p+3],AppendTo[lst,p]],{n,3*7!}];lst
%t Select[Prime[Range[10000]],NoneTrue[#+{-3,-2,2,3},SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 27 2019 *)
%Y Cf. A049282, A049097, A039787, A075432, A153207, A153208, A153209, A153210, A153213
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 20 2008