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

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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 *)

Crossrefs

Cf. A153213, A049282, A155139, A155140, A155141, A155142, A155143

Sequence in context: A031569 A031749 A229857 * A281679 A187356 A187354

Adjacent sequences: A155142 A155143 A155144 * A155146 A155147 A155148

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 21 2009

Status

approved