OFFSET
1,1
COMMENTS
The first term in this sequence but absent from A179983 is 180.
The numbers of terms that do not exceed 10^k, for k = 1, 2, ..., are 6, 78, 820, 8379, 84440, 846646, 8473868, 84763404, 847714834, 8477408261, ... . Apparently, the asymptotic density of this sequence exists and equals 0.8477... . - Amiram Eldar, Aug 04 2024
LINKS
MATHEMATICA
normalQ[m_]:=Union[m]==Range[Max[m]];
Select[Range[2, 100], normalQ[FactorInteger[#][[All, 2]]]&]
PROG
(PARI) is(k) = {my(e = Set(factor(k)[, 2])); k > 1 && vecmax(e) == #e; } \\ Amiram Eldar, Aug 04 2024
CROSSREFS
Subsequence of A337533.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 21 2018
STATUS
approved