login
A365263
Numbers m for which A139770(m) and A140635(m) differ.
2
16, 64, 81, 144, 192, 320, 324, 400, 448, 576, 625, 704, 729, 784, 832, 900, 960, 1024, 1088, 1216, 1296, 1344, 1458, 1472, 1600, 1728, 1764, 1856, 1936, 1984, 2025, 2112, 2240, 2304, 2368, 2401, 2496, 2500, 2624, 2704, 2752, 2880, 2916, 3008, 3072, 3136, 3264, 3392, 3520, 3600, 3645, 3648, 3776, 3904, 3969
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
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Aug 29 2023
STATUS
approved