A176141 Primes p such that p+-1, p+-2, p+-3 and p+-4 are not squarefree.

29002021, 110196277, 118389143, 212660647, 300782527, 327385951, 360369421, 375338729, 385025777, 488642647, 494501773, 557565221, 637805153, 765921647, 768588851, 801954479, 816239747, 821097653, 858454951, 882772679, 930996623

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 09 2010

Keywords

• nonn

Crossrefs

Cf. A013929, A166003

Programs

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

Extensions

More terms from Zak Seidov, Apr 10 2010