A153214 Primes p such that p+-2 and p+-3 are not squarefree.

47, 1447, 1847, 3701, 6653, 11273, 14947, 15727, 17053, 18493, 21661, 24923, 26647, 29153, 32789, 33023, 38873, 39323, 42437, 42923, 44053, 47527, 47977, 49853, 52027, 52153, 56747, 56873, 59929, 71147, 74189, 79427, 80953, 99277, 99713

Offset

1,1

Links

Table of n, a(n) for n=1..35.

Mathematica

lst={}; Do[p=Prime[n]; If[ !SquareFreeQ[p-2]&&!SquareFreeQ[p+2]&&!SquareFreeQ[p-3]&&!SquareFreeQ[p+3], AppendTo[lst, p]], {n, 3*7!}]; lst
Select[Prime[Range[10000]], NoneTrue[#+{-3, -2, 2, 3}, SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 27 2019 *)

Crossrefs

Cf. A049282, A049097, A039787, A075432, A153207, A153208, A153209, A153210, A153213

Sequence in context: A348805 A285237 A157359 * A142845 A202128 A278268

Adjacent sequences: A153211 A153212 A153213 * A153215 A153216 A153217

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 20 2008

Status

approved