OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..58
EXAMPLE
MAPLE
G:= proc(d)
local S, a, b, s, q, r, i;
S:= {}:
for s in combinat:-powerset({$0..d-1}) minus {{}, {$0..d-1}} do
q:= add(10^i, i=s);
r:= (10^d-1)/9 - q;
S:= S union {seq(seq(a*q+b*r, b = a+1..9), a = `if`(q < 10^(d-1), 0, 1) .. 8)};
od;
S:= sort(convert(S, list));
end proc:
R:= NULL: m:= 0:
for d from 2 to 17 do
for x in G(d) do
v:= numtheory:-tau(x);
if v > m then
count:= count+1; R:= R, x; m:= v;
fi
od
od:
R;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Oct 06 2025
STATUS
approved
