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 A166002 #4 May 01 2013 21:13:44
%S A166002 1934869,6136619,11195869,11845499,12385381,33919619,39139381,
%T A166002 39790381,52937869,53209381,53631131,54601619,58690381,62892131,
%U A166002 67951381,77212381,80224619,88874869,94544869,95734381,99936131,103805869,108827869
%N A166002 Primes p such that p-6, p-5, p+5, and p+6 are each divisible by a cube greater than 1.
%t A166002 f[n_]:=Max[Last/@FactorInteger[n]]; q=3;lst={};Do[p=Prime[n];If[f[p-6]>=q&&f[p-5]>=q&&f[p+5]>=q&&f[p+6]>=q,AppendTo[lst,p]],{n,5*9!}];lst
%Y A166002 Cf. A086708, A086709, A089199, A089200, A089212, A166000, A166001
%K A166002 nonn
%O A166002 1,1
%A A166002 _Vladimir Joseph Stephan Orlovsky_, Oct 03 2009
%E A166002 Edited by _N. J. A. Sloane_, Oct 04 2009
%E A166002 Extended and edited by _Charles R Greathouse IV_, May 12 2010