%I A155145
%S A155145 5051,6353,6961,7151,7547,8951,13451,22447,36847,49297,51061,51647,
%T A155145 52147,63649,68891,81049,81553,82651,91237,95747,108089,110647,110899,
%U A155145 117239,117851,122207,124753,125149,126517,136247,148549,153953,154747
%N A155145 Primes p such that p-+1, p-+3, p-+5 are NotSquare-free.
%t A155145 <<NumberTheory`NumberTheoryFunctions` lst={};Do[p=Prime[n];If[ !SquareFreeQ[p-1]&&!SquareFreeQ[p+1]&&!SquareF\
               reeQ[p-3]&&!SquareFreeQ[p+3]&&!SquareFreeQ[p-5]&&!SquareFreeQ[p+5],
               AppendTo[lst,p]],{n,3*7!}];lst
%Y A155145 Cf. A153213, A049282, A155139, A155140, A155141, A155142, A155143
%Y A155145 Sequence in context: A031659 A031569 A031749 this_sequence A160757 A046169 
               A058908
%Y A155145 Adjacent sequences: A155142 A155143 A155144 this_sequence A155146 A155147 
               A155148
%K A155145 nonn
%O A155145 1,1
%A A155145 Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 21 2009