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,1

Links

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

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

Cf. A013929, A166003

Sequence in context: A306845 A104828 A198172 * A105013 A168515 A287384

Adjacent sequences: A176138 A176139 A176140 * A176142 A176143 A176144

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 09 2010

Extensions

More terms from Zak Seidov, Apr 10 2010

Status

approved