program ideone;

Function Power(A: integer; N: integer) : integer; 
Begin 
  If N=0 then 
    Power:= 1 
  Else 
    Power:= A*Power(A, N-1); 
End;

function Calc(N:integer; node:integer) : integer;
begin
  if (node<=n) then
  begin
    Calc := Power(2, Power(2, max(0, node-2))) - 1 + Calc(N, node+1)
  end
  else
    Calc := 0;
end;
var
  i:integer;

begin
  for i := 1 to 4 do
    writeln(Calc(i, 1));
end.