A084918 Numbers n >= 1000, such that if prime P divides n, then so does each smaller prime.

1024, 1050, 1080, 1152, 1200, 1260, 1296, 1350, 1440, 1458, 1470, 1500, 1536, 1620, 1680, 1728, 1800, 1890, 1920, 1944, 2048, 2100, 2160, 2250, 2304, 2310, 2400, 2430, 2520, 2592, 2700, 2880, 2916, 2940, 3000, 3072, 3150, 3240, 3360, 3456, 3600, 3750

Offset: 0

Author

Alford Arnold, Jul 15 2003

Keywords

• easy
• nonn

Comments

A055932 lists terms below 1000.

Crossrefs

Cf. A055932, A056808, A057335, A066099, A071364, A080259, A080404.

Programs

Mathematica

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 *)

Extensions

Edited by Don Reble, Nov 03 2003