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 A084918 #7 Mar 09 2019 19:22:17
%S A084918 1024,1050,1080,1152,1200,1260,1296,1350,1440,1458,1470,1500,1536,
%T A084918 1620,1680,1728,1800,1890,1920,1944,2048,2100,2160,2250,2304,2310,
%U A084918 2400,2430,2520,2592,2700,2880,2916,2940,3000,3072,3150,3240,3360,3456,3600,3750
%N A084918 Numbers n >= 1000, such that if prime P divides n, then so does each smaller prime.
%C A084918 A055932 lists terms below 1000.
%t A084918 espQ[n_]:=Module[{f=FactorInteger[n][[All,1]]},Prime[Range[ PrimePi[ Max[f]]]] == f]; Select[Range[1000,4000],espQ] (* _Harvey P. Dale_, Mar 09 2019 *)
%Y A084918 Cf. A055932, A056808, A057335, A066099, A071364, A080259, A080404.
%K A084918 easy,nonn
%O A084918 0,1
%A A084918 _Alford Arnold_, Jul 15 2003
%E A084918 Edited by _Don Reble_, Nov 03 2003