This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A166003 #10 Oct 01 2019 04:03:51
%S A166003 47527,186247,218527,245149,269953,377543,390449,432277,447823,453053,
%T A166003 469649,518123,568177,584911,589273,606323,632347,661547,761347,
%U A166003 831751,848213,897577,913327,925949,952253,1172351,1205647,1220347,1241477
%N A166003 Primes p such that p+-1, p+-2 and p+-3 are not squarefree.
%H A166003 Amiram Eldar, <a href="/A166003/b166003.txt">Table of n, a(n) for n = 1..10000</a>
%t A166003 f[n_]:=Max[Last/@FactorInteger[n]]; q=2;lst={};Do[p=Prime[n];If[f[p-3]>=q&&f[p-2]>=q&&f[p-1]>=q&&f[p+1]>=q&&f[p+2]>=q&&f[p+3]>=q,AppendTo[lst,p]],{n,6*8!}];lst
%t A166003 Select[Prime[Range[100000]],NoneTrue[#+{-3,-2,-1,1,2,3},SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 17 2018 *)
%Y A166003 Cf. A086708, A086709, A089199, A089200, A089212, A166000, A166001, A166002.
%K A166003 nonn
%O A166003 1,1
%A A166003 _Vladimir Joseph Stephan Orlovsky_, Oct 03 2009
%E A166003 Edited by _N. J. A. Sloane_, Oct 04 2009