OFFSET
1,2
COMMENTS
Density: 33 terms between 1 and 100, 17 between 201 and 300, 11 between 1001 and 1100, and 2 between 1000001 and 1000100.
EXAMPLE
42=a(17) is a term, since 2,3 and 7 are the prime divisors of 42, which has 8 divisors. 156=2^2*3*13 is not a term, since 13 is greater than 12, the number of divisors of 156.
MATHEMATICA
Select[Range[250], FactorInteger[#][[-1, 1]] <= DivisorSigma[0, #] &] (* Amiram Eldar, Sep 22 2020 *)
PROG
(PARI) isok(m) = #select(x->(x>numdiv(m)), factor(m)[, 1]) == 0; \\ Michel Marcus, Sep 22 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Richard Peterson, Sep 15 2020
STATUS
approved