var
n: integer;
res: integer;
procedure printgraf(x: integer);
var
i: integer;
begin
if x >= 0 then
begin
printgraf(x - 1);
printgraf(x - 1);
for i := 0 to x - 1 do
inc(res);
printgraf(x - 2);
end;
end;
begin
res := 0;
read(n);
printgraf(n);
writeln(res);
end.
dmFyCm46IGludGVnZXI7CnJlczogaW50ZWdlcjsKcHJvY2VkdXJlIHByaW50Z3JhZih4OiBpbnRlZ2VyKTsKdmFyCmk6IGludGVnZXI7CmJlZ2luCmlmIHggPj0gMCB0aGVuCmJlZ2luCnByaW50Z3JhZih4IC0gMSk7CnByaW50Z3JhZih4IC0gMSk7CmZvciBpIDo9IDAgdG8geCAtIDEgZG8KaW5jKHJlcyk7CnByaW50Z3JhZih4IC0gMik7CmVuZDsKZW5kOwpiZWdpbgpyZXMgOj0gMDsKcmVhZChuKTsKcHJpbnRncmFmKG4pOwp3cml0ZWxuKHJlcyk7CmVuZC4=