OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
normalQ[m_]:=Union[m]==Range[Max[m]];
Select[Range[2, 150], And[normalQ[FactorInteger[#][[All, 2]]], OrderedQ[FactorInteger[#][[All, 2]]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 21 2018
STATUS
approved