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 A166001 #11 Jan 20 2024 13:26:55 %S A166001 751379,2414507,2839621,3170371,4469629,5736371,21154909,22556371, %T A166001 22991629,23313371,23748629,24338371,28372621,31628371,32079757, %U A166001 33009629,41078371,42270629,43465307,44446621,49746667,50579339 %N A166001 Primes p such that p-5, p-4, p+4, and p+5 are each divisible by a cube > 1. %H A166001 G. C. Greubel, <a href="/A166001/b166001.txt">Table of n, a(n) for n = 1..271</a> %t A166001 f[n_]:=Max[Last/@FactorInteger[n]]; q=3;lst={};Do[p=Prime[n];If[f[p-5]>=q&&f[p-4]>=q&&f[p+4]>=q&&f[p+5]>=q,AppendTo[lst,p]],{n,4*8!}];lst %Y A166001 Cf. A086708, A086709, A089199, A089200, A089212, A166000. %K A166001 nonn,less %O A166001 1,1 %A A166001 _Vladimir Joseph Stephan Orlovsky_, Oct 03 2009 %E A166001 Extended by _Charles R Greathouse IV_, Oct 09 2009