//By BLADEVIL

var

    w                   :array[..] of longint;

    i                   :longint;

    n                   :longint;

begin

    assign(input,'sumset.in'); reset(input);

    assign(output,'sumset.out'); rewrite(output);

    read(n);

    w[]:=;

    for i:= to n do

        if i mod = then w[i]:=w[i-] else w[i]:=(w[i-]+w[i div ]) mod ;

    writeln(w[n]);

    close(input); close(output);

end.