program Zada4a_1;

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