A365263 Numbers m for which A139770(m) and A140635(m) differ.

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

Links

Table of n, a(n) for n=1..55.

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

Cf. A000005, A002182, A005179, A007412, A061799, A139770, A140635.

Sequence in context: A118902 A092210 A320892 * A062320 A233330 A370787

Adjacent sequences: A365260 A365261 A365262 * A365264 A365265 A365266

Keyword

nonn

Author

Hartmut F. W. Hoft, Aug 29 2023

Status

approved