login
Primes p such that p-+1, p-+3, p-+5 are not squarefree.
1

%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