Ответ: 3209
Программа для проверки(Паскаль):
var
x, a, b,i,max: longint;
begin
max:=1;
for i:=1 to 10000 do
begin
x:=i;
a := 0;b := 1;
while x > 0 do
begin
if x mod 2 > 0 then a := a + x mod 8
else b := b * (x mod 8);
x := x div 8;
end;
if (a=2) and (b=12) and (max end;
Writeln(max);
end.