login
A176141
Primes p such that p+-1, p+-2, p+-3 and p+-4 are not squarefree.
3
29002021, 110196277, 118389143, 212660647, 300782527, 327385951, 360369421, 375338729, 385025777, 488642647, 494501773, 557565221, 637805153, 765921647, 768588851, 801954479, 816239747, 821097653, 858454951, 882772679, 930996623
OFFSET
1,1
MATHEMATICA
f[n_]:=Max[Last/@FactorInteger[n]]; lst={}; Do[p=Prime[n]; If[f[p-2]>1&&f[p-1]>1&&f[p+1]>1&&f[p+2]>1&&f[p-3]>1&&f[p+3]>1&&f[p-4]>1&&f[p+4]>1, AppendTo[lst, p]], {n, 6*10!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Zak Seidov, Apr 10 2010
STATUS
approved