OFFSET
1,3
COMMENTS
First differs from A072084 at n = 27.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = a(2*n).
EXAMPLE
MAPLE
g:= proc(n) convert(convert(n, base, 2), `+`) end proc:
f:= proc(n) local t, r;
max(seq(g(t)*g(n/t), t = numtheory:-divisors(n)))
end proc:
map(f, [$1..100]);
MATHEMATICA
a[n_] := Max[(d = DigitCount[Divisors[n], 2, 1]) * Reverse[d]]; Array[a, 100] (* Amiram Eldar, Sep 03 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Sep 03 2023
STATUS
approved