%I #11 Jul 01 2023 08:28:28
%S 5051,6353,6961,7151,7547,8951,13451,22447,36847,49297,51061,51647,
%T 52147,63649,68891,81049,81553,82651,91237,95747,108089,110647,110899,
%U 117239,117851,122207,124753,125149,126517,136247,148549,153953,154747
%N Primes p such that p-+1, p-+3, p-+5 are not squarefree.
%H Harvey P. Dale, <a href="/A155145/b155145.txt">Table of n, a(n) for n = 1..1000</a>
%t <<NumberTheory`NumberTheoryFunctions` lst={};Do[p=Prime[n];If[ !SquareFreeQ[p-1]&&!SquareFreeQ[p+1]&&!SquareFreeQ[p-3]&&!SquareFreeQ[p+3]&&!SquareFreeQ[p-5]&&!SquareFreeQ[p+5],AppendTo[lst,p]],{n,3*7!}];lst
%t Select[Prime[Range[15000]],NoneTrue[#+{1,3,5,-1,-3,-5},SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 05 2020 *)
%Y Cf. A153213, A049282, A155139, A155140, A155141, A155142, A155143
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 21 2009