program Pr_8_31;
var
  k: integer;

function sum(n: integer): longint;
var
  i: integer;
  t: integer;
begin
t:=0;
  if n > 1 then
    for i:= 2 to n do
      t:= t + sum (n div i)
   else
      t:=1;
    sum:= t;
end;

begin
  for k:= 15 to 30 do
  begin
    write('Для k=',k,' сумма равна ', sum(k));
    writeln;
  end;
end.