login
A155145
Primes p such that p-+1, p-+3, p-+5 are not squarefree.
1
5051, 6353, 6961, 7151, 7547, 8951, 13451, 22447, 36847, 49297, 51061, 51647, 52147, 63649, 68891, 81049, 81553, 82651, 91237, 95747, 108089, 110647, 110899, 117239, 117851, 122207, 124753, 125149, 126517, 136247, 148549, 153953, 154747
OFFSET
1,1
LINKS
MATHEMATICA
<<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
Select[Prime[Range[15000]], NoneTrue[#+{1, 3, 5, -1, -3, -5}, SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 05 2020 *)
KEYWORD
nonn
AUTHOR
STATUS
approved