A153214 Primes p such that p+-2 and p+-3 are not squarefree.

47, 1447, 1847, 3701, 6653, 11273, 14947, 15727, 17053, 18493, 21661, 24923, 26647, 29153, 32789, 33023, 38873, 39323, 42437, 42923, 44053, 47527, 47977, 49853, 52027, 52153, 56747, 56873, 59929, 71147, 74189, 79427, 80953, 99277, 99713

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Dec 20 2008

Keywords

• nonn

Crossrefs

Cf. A049282, A049097, A039787, A075432, A153207, A153208, A153209, A153210, A153213

Programs

Mathematica

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
Select[Prime[Range[10000]],NoneTrue[#+{-3,-2,2,3},SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 27 2019 *)