program Programzk1;

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