login
A153215
Primes p such that none of p-2, p-1, p+1, and p+2 is squarefree.
3
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,1
LINKS
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
KEYWORD
nonn
AUTHOR
STATUS
approved