program Zada4a_1;

{$APPTYPE CONSOLE}
var
N,S,i:integer;
begin
write('N='); readln(n);
S:=0;
For i:=12 to n do
begin
S:=S+i;
i:=i+3;
end;
writeln(S);
readln;
end.