OFFSET
1,1
MATHEMATICA
(* a139770[ ] and a140635[ ] are defined in their respective sequences *)
a365263[{m_, n_}] := Select[Range[m, n], a139770[#]!=a140635[#]&]
a365263[{1, 4000}]
PROG
(PARI) isok(m) = my(nd = numdiv(m)); for (i=1, m-1, if (numdiv(i) == nd, return (0)); if (numdiv(i)> nd, return(1))); 0; \\ Michel Marcus, Aug 31 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Aug 29 2023
STATUS
approved