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,1

Comments

A055932 lists terms below 1000.

Links

Table of n, a(n) for n=0..41.

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

Crossrefs

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

Sequence in context: A336780 A217850 A023075 * A235719 A365583 A057370

Adjacent sequences: A084915 A084916 A084917 * A084919 A084920 A084921

Keyword

easy,nonn

Author

Alford Arnold, Jul 15 2003

Extensions

Edited by Don Reble, Nov 03 2003

Status

approved