login
A339552
Numbers k such that the product of the binary weights of the divisors of k (A339549) sets a new record.
1
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,2
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).
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Dec 08 2020
STATUS
approved