var
        i,n,t,m:longint;
begin
        read(n);
        for i:=1 to n do
        if (i mod 2=0) and (i mod 3<>0) then begin t:=t+1;m:=m+i; end;
        writeln(t);
        writeln(m);
end.
/**************************************************************
	Problem: 1741
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/