A153215 Primes p such that none of p-2, p-1, p+1, and p+2 is squarefree.

727, 1423, 1861, 3719, 6173, 9749, 11321, 13183, 19073, 20873, 23227, 23473, 23827, 26981, 27883, 34351, 35323, 41263, 42677, 44449, 45127, 45523, 47527, 48751, 49727, 52391, 53623, 53849, 68749, 71993, 72559, 78823, 83609, 89227, 92779

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Dec 20 2008

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

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

Programs

Mathematica

<< NumberTheory`NumberTheoryFunctions` lst={}; Do[p=Prime[n];If[ !SquareFreeQ[p-1]&&!SquareFreeQ[p+1]&&!SquareFreeQ[p-2]&&!SquareFreeQ[p+2],AppendTo[lst,p]],{n,4*7!}]; lst