Var i,N,sum:integer;
    a:array[0..100000] of longint;
begin
readln(N);

for i:=3 to N do begin
a[i]:=i;
if a[i] mod 3=0 then sum:=sum+i;
end;

writeln(sum);
end.