A339552 Numbers k such that the product of the binary weights of the divisors of k (A339549) sets a new record.

1, 3, 6, 12, 14, 15, 21, 28, 30, 42, 60, 84, 90, 120, 168, 180, 210, 252, 360, 420, 540, 630, 840, 1080, 1260, 2520, 3780, 5040, 6300, 7560, 10080, 12600, 13860, 15120, 21420, 22680, 25200, 27720, 32760, 37800, 41580, 42840, 49140, 55440, 65520, 75600, 83160

Offset: 1

Author

Amiram Eldar, Dec 08 2020

Keywords

• nonn
• base

Comments

Analogous to A093687 as A339549 is analogous to A093653.

The corresponding record values of A339549 are 1, 2, 4, 8, 9, 16, 18, 27, 256, 324, ... (see the link for more values).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..150
• Amiram Eldar, Table of n, a(n), A339549(a(n)) for n = 1..150

Crossrefs

Cf. A000120, A093653, A093687, A339549.

Programs

Mathematica

f[n_] := Times @@ (DigitCount[#, 2, 1] & /@ Divisors[n]); c=0; fm = 0; s = {}; Do[f1 = f[n]; If[f1 > fm, fm = f1; AppendTo[s, n]], {n, 1, 10000}]; s